4.3.2.3 (g tan)^p (a+b tan)^m (c+d tan)^n.nb

(* Content-type: application/mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 7.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[    232154,       4335]
NotebookOptionsPosition[    227101,       4202]
NotebookOutlinePosition[    228934,       4257]
CellTagsIndexPosition[    228891,       4254]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[Cell[TextData[{
  StyleBox["Rules for integrands of the form ",
   FontFamily->"Arial"],
  Cell[BoxData[
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"g", " ", 
       RowBox[{"Tan", "[", 
        RowBox[{"e", "+", 
         RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "p"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"Tan", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}], "m"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"c", "+", 
       RowBox[{"d", " ", 
        RowBox[{"Tan", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}], "n"]}]],
   CellDingbat->None,
   CellChangeTimes->{
    3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
     3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
     3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
     3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
     3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
     3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
     3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
     3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
     3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
     3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
     3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
     3.5193325694253187`*^9, {3.5193415004828687`*^9, 
     3.5193415113404875`*^9}, {3.5193513965602303`*^9, 
     3.519351397420232*^9}, {3.5194037839416766`*^9, 3.5194037847117205`*^9}, 
     3.52105258275843*^9, 3.5210531741726685`*^9, {3.521057461672199*^9, 
     3.5210574760242243`*^9}, {3.521059881564049*^9, 3.521059886088057*^9}, {
     3.5213902158895197`*^9, 3.521390217543123*^9}, {3.521390827878595*^9, 
     3.521390829376197*^9}, {3.5214688792561245`*^9, 3.521468879443325*^9}, {
     3.523320201951167*^9, 3.523320202247567*^9}, {3.5288596764894824`*^9, 
     3.5288596768094826`*^9}, {3.529196266260353*^9, 
     3.5291962665099535`*^9}, {3.5291997050223927`*^9, 
     3.5291997052563934`*^9}, {3.529201346457276*^9, 3.529201347252877*^9}, {
     3.529285041073242*^9, 3.5292850412632427`*^9}, {3.529285215443486*^9, 
     3.529285215443486*^9}, {3.5295115356999426`*^9, 
     3.5295115433443794`*^9}, {3.529521412127842*^9, 3.529521414647986*^9}, {
     3.529529429975619*^9, 3.529529432955224*^9}, 3.5340074894011116`*^9, 
     3.5415537711400824`*^9, {3.5415538409034047`*^9, 3.541553841106205*^9}, {
     3.5415564120531206`*^9, 3.5415564206955357`*^9}, 
     3.5415565488341613`*^9, {3.5415605631516123`*^9, 
     3.5415605860836525`*^9}, {3.541561323247347*^9, 3.5415613234501476`*^9}, 
     3.5416162115728135`*^9, {3.5416506679001875`*^9, 3.541650687980216*^9}, 
     3.560533948494043*^9, 3.560538006319724*^9, {3.5605392374714475`*^9, 
     3.5605392382814484`*^9}, 3.5606250606115856`*^9, 3.5617573869745255`*^9, 
     3.561757856045182*^9, {3.561761339582559*^9, 3.5617613636025925`*^9}, {
     3.5617652519980364`*^9, 3.561765252188037*^9}, {3.561767460571129*^9, 
     3.5617674608411293`*^9}, 3.5621081762414055`*^9, {3.5621084468550806`*^9,
      3.5621084519718895`*^9}, 3.563340740121106*^9},
   FontWeight->"Bold"]
 }], "None"]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.4965234353062396`*^9, {3.5193214825316973`*^9, 3.5193214852617016`*^9}, {
   3.523316399894187*^9, 3.5233164032341914`*^9}, {3.523318350558202*^9, 
   3.5233183516382036`*^9}, {3.536542725780803*^9, 3.536542725780803*^9}, {
   3.5367764878952584`*^9, 3.5367764886452594`*^9}, {3.544322815209103*^9, 
   3.5443228192963104`*^9}, {3.5450662624913826`*^9, 3.545066292141424*^9}, {
   3.545066402271579*^9, 3.5450664054415827`*^9}, {3.5450834884295015`*^9, 
   3.5450834895895033`*^9}, {3.5454961263762493`*^9, 
   3.5454961321462574`*^9}, {3.5454963863166127`*^9, 
   3.5454964580867133`*^9}, {3.545497046127537*^9, 3.545497046127537*^9}, {
   3.5454971130676303`*^9, 3.545497136257663*^9}, 3.545610399977621*^9, {
   3.546040778592962*^9, 3.546040778592962*^9}, {3.5461052065706367`*^9, 
   3.5461052249474688`*^9}, {3.546191339879622*^9, 3.5461913430596266`*^9}, {
   3.5462141824067917`*^9, 3.5462142145768366`*^9}, {3.5462145455473003`*^9, 
   3.5462145601073203`*^9}, {3.5463149785974817`*^9, 
   3.5463149794195285`*^9}, {3.5488738437683954`*^9, 
   3.5488738699084315`*^9}, {3.5488890647645535`*^9, 3.548889080804576*^9}, {
   3.5505951583099127`*^9, 3.5505951620351257`*^9}, {3.5505952613798075`*^9, 
   3.5505952630869055`*^9}, {3.5535321133435373`*^9, 
   3.5535321173537664`*^9}, {3.5536175341411576`*^9, 
   3.5536175352411594`*^9}, {3.55396599671187*^9, 3.55396599862998*^9}, {
   3.560190530310161*^9, 3.560190628512334*^9}, {3.5602162723838596`*^9, 
   3.5602162793138695`*^9}, {3.5606249190913877`*^9, 3.560624924321395*^9}, {
   3.5617663419995623`*^9, 3.5617663705796027`*^9}, {3.5617666456099873`*^9, 
   3.561766656350003*^9}, {3.562107691486154*^9, 3.5621077390350375`*^9}, {
   3.5621080165751247`*^9, 3.5621080185719285`*^9}, {3.5621081511877613`*^9, 
   3.5621081511877613`*^9}, {3.5633407304210925`*^9, 3.563340730891093*^9}, {
   3.575852587746504*^9, 3.575852593256511*^9}, {3.575852659996605*^9, 
   3.575852659996605*^9}, {3.575852743186721*^9, 3.575852743186721*^9}, {
   3.57585284254686*^9, 3.575852895956935*^9}, {3.575853026617118*^9, 
   3.575853038617135*^9}, {3.575853153907296*^9, 3.575853185757341*^9}, {
   3.575853290447487*^9, 3.575853290447487*^9}, {3.5758535595198665`*^9, 
   3.5758535595198665`*^9}, {3.596998393501259*^9, 3.596998397911265*^9}, {
   3.605894222337658*^9, 3.605894256080517*^9}, {3.6065875976010056`*^9, 
   3.6065875976010056`*^9}, {3.624650818787819*^9, 3.62465083278662*^9}, {
   3.6301716209591165`*^9, 3.6301716209903164`*^9}, {3.664297208541355*^9, 
   3.664297215423749*^9}},
 TextAlignment->Center,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{Cell[TextData[StyleBox["X:",
   FontFamily->"Arial",
   FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"g", " ", 
       RowBox[{"Tan", "[", 
        RowBox[{"e", "+", 
         RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "p"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"Tan", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}], "m"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"c", "+", 
       RowBox[{"d", " ", 
        RowBox[{"Tan", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}], "n"], 
    RowBox[{"\[DifferentialD]", "x"}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9, 
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9, 
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9}, 
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193327317904043`*^9, 
   3.519332762148057*^9}, {3.519340455685931*^9, 3.519340463318947*^9}, 
   3.519340635545749*^9, {3.5193422478304834`*^9, 3.519342248704085*^9}, {
   3.519342492766513*^9, 3.519342493156514*^9}, {3.519345750301442*^9, 
   3.5193457505978427`*^9}, 3.519346263464343*^9, {3.519349307658399*^9, 
   3.519349310965605*^9}, {3.519352294781488*^9, 3.5193522950014887`*^9}, {
   3.5194134359455075`*^9, 3.519413446054325*^9}, {3.5194134908888044`*^9, 
   3.5194134927764077`*^9}, {3.5194141847624226`*^9, 
   3.5194142323581066`*^9}, {3.5195392931088047`*^9, 3.51953929576081*^9}, 
   3.5195394267074394`*^9, {3.5196773980538087`*^9, 3.5196774025801287`*^9}, 
   3.5214730195115576`*^9, {3.5214731380617237`*^9, 3.521473193531801*^9}, {
   3.521474138193124*^9, 3.5214741420331287`*^9}, {3.5214741988932085`*^9, 
   3.5214742007232113`*^9}, {3.523316621154496*^9, 3.523316621154496*^9}, {
   3.523316677984576*^9, 3.523316677984576*^9}, {3.523318504907651*^9, 
   3.523318504907651*^9}, {3.5233186383938627`*^9, 3.5233186383938627`*^9}, {
   3.527359904961545*^9, 3.527359905959947*^9}, {3.5326425332730722`*^9, 
   3.532642533473073*^9}, {3.5326427746632795`*^9, 3.53264277491288*^9}, {
   3.5326584214048853`*^9, 3.5326584216348853`*^9}, {3.5327156387673616`*^9, 
   3.5327156467558184`*^9}, {3.532715729333542*^9, 3.53271573123365*^9}, 
   3.5328460582169604`*^9, {3.5328745920833416`*^9, 3.5328746294142075`*^9}, {
   3.532875067275776*^9, 3.532875067650177*^9}, {3.532875139909504*^9, 
   3.532875150829523*^9}, {3.537656121233163*^9, 3.537656121443164*^9}, 
   3.540263906712819*^9, {3.5402639787229204`*^9, 3.5402639788829203`*^9}, {
   3.540319178473138*^9, 3.5403191846574917`*^9}, {3.540319223359705*^9, 
   3.5403192458899937`*^9}, {3.5403196532852955`*^9, 
   3.5403196542853527`*^9}, {3.5404234472634363`*^9, 
   3.5404234474974365`*^9}, {3.5404266413502464`*^9, 3.540426641755847*^9}, {
   3.540427707752519*^9, 3.5404277079553194`*^9}, {3.544238816041692*^9, 
   3.544238816041692*^9}, {3.544972902988535*^9, 3.544972921755368*^9}, 
   3.5449740982158346`*^9, 3.5449744158947926`*^9, {3.5449778031390886`*^9, 
   3.5449778251343465`*^9}, 3.544977917559617*^9, 3.5449779627882037`*^9, 
   3.544978006651713*^9, {3.5449918948372655`*^9, 3.5449919232873054`*^9}, {
   3.544991979387384*^9, 3.544991982507388*^9}, 3.544992738708447*^9, {
   3.5449930027088165`*^9, 3.5449930028388166`*^9}, 3.545003033111788*^9, {
   3.5450034681341515`*^9, 3.545003468352552*^9}, 3.545013424767751*^9, {
   3.5451009044378967`*^9, 3.545100915607912*^9}, {3.54541557020794*^9, 
   3.5454155892399735`*^9}, {3.5454159491014056`*^9, 3.545415954795416*^9}, 
   3.5454160835424414`*^9, {3.545416120483307*^9, 3.545416120483307*^9}, {
   3.54541627618718*^9, 3.545416318915655*^9}, {3.545416397555393*^9, 
   3.5454163977893934`*^9}, {3.5454168214081373`*^9, 
   3.5454168256513453`*^9}, {3.5454168857582507`*^9, 
   3.5454169106558943`*^9}, {3.5454170438021283`*^9, 
   3.5454170438021283`*^9}, {3.5454172983477755`*^9, 
   3.5454173176294093`*^9}, {3.545417477046089*^9, 3.545417477046089*^9}, 
   3.5454175123801513`*^9, 3.545418173946113*^9, {3.5454188654017277`*^9, 
   3.545418868272133*^9}, 3.5454190264096107`*^9, {3.5454190831157103`*^9, 
   3.545419098481737*^9}, {3.545420016893956*^9, 3.5454200195739603`*^9}, {
   3.5454302777654276`*^9, 3.5454302809754324`*^9}, 3.5454968581472735`*^9, {
   3.5455036760368185`*^9, 3.5455036774768205`*^9}, {3.5455949658741317`*^9, 
   3.5455949660641317`*^9}, {3.545719824274483*^9, 3.5457198244494934`*^9}, {
   3.5460594494138556`*^9, 3.5460594499878883`*^9}, {3.5461053035404067`*^9, 
   3.546105319717635*^9}, {3.5461053579845023`*^9, 3.546105358920504*^9}, {
   3.546124698953128*^9, 3.546124699423128*^9}, {3.5461916295600276`*^9, 
   3.5461916301100283`*^9}, {3.5461991707505856`*^9, 3.546199171290586*^9}, 
   3.546214242416876*^9, {3.5463150473254128`*^9, 3.5463150476074286`*^9}, {
   3.546315272154272*^9, 3.5463152723902855`*^9}, {3.5463161576219177`*^9, 
   3.54631615975904*^9}, {3.5481806240722923`*^9, 3.548180624337493*^9}, {
   3.5626093946015043`*^9, 3.562609394791505*^9}, {3.56263431400762*^9, 
   3.5626343142476206`*^9}, {3.5832799070559163`*^9, 
   3.5832799073359165`*^9}, {3.583298533747108*^9, 3.58329853485471*^9}, {
   3.5832991295745544`*^9, 3.5832991300113554`*^9}, {3.583342184281198*^9, 
   3.5833421856312*^9}, {3.583368284889328*^9, 3.583368285319329*^9}, {
   3.583774043252548*^9, 3.583774043542548*^9}, {3.5837877386068306`*^9, 
   3.583787738836831*^9}, 3.596942866565734*^9, 3.6059871329070673`*^9, {
   3.6059872563272443`*^9, 3.605987256867245*^9}, 3.606324825590423*^9, 
   3.606703566563154*^9, 3.607550759375228*^9, {3.6260255520706353`*^9, 
   3.626025573536273*^9}, {3.626025655561217*^9, 3.626025658525222*^9}, {
   3.6301716210059166`*^9, 3.6301716210215163`*^9}, {3.664297226055357*^9, 
   3.664297234374833*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Rule:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9, 
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, {
   3.4976638984111347`*^9, 3.4976639153215647`*^9}, {3.4976645939383564`*^9, 
   3.497664598805565*^9}, {3.4976646480080514`*^9, 3.4976646992229414`*^9}, {
   3.4976647966763124`*^9, 3.497664832415975*^9}, 3.497664903037299*^9, {
   3.4986779242986293`*^9, 3.498677947778662*^9}, {3.499179738750054*^9, 
   3.499179740902858*^9}, {3.499213316063504*^9, 3.4992133345435305`*^9}, {
   3.499358051967739*^9, 3.4993580717017736`*^9}, {3.4993638312082148`*^9, 
   3.499363839028226*^9}, {3.499368533262825*^9, 3.499368534762827*^9}, {
   3.500319714354707*^9, 3.500319719674714*^9}, {3.500321207536797*^9, 
   3.5003212188668127`*^9}, {3.501358653573163*^9, 3.5013586559531665`*^9}, {
   3.502678432393256*^9, 3.5026784351732597`*^9}, {3.5027657117315207`*^9, 
   3.5027657146955256`*^9}, {3.5027672159617634`*^9, 
   3.5027672159617634`*^9}, {3.503549413750845*^9, 3.5035494378508787`*^9}, {
   3.5040286533797517`*^9, 3.5040286542689533`*^9}, 3.504031878337816*^9, 
   3.5043107701173162`*^9, {3.509475086194587*^9, 3.509475086194587*^9}, 
   3.509553389797927*^9, 3.5095539171114664`*^9, {3.509822121353137*^9, 
   3.50982213066315*^9}, {3.510174534928236*^9, 3.510174534928236*^9}, {
   3.510179775418688*^9, 3.510179780270296*^9}, {3.5117202775835953`*^9, 
   3.5117202775835953`*^9}, {3.54541720407681*^9, 3.54541720407681*^9}, {
   3.545418766528754*^9, 3.5454187683227572`*^9}, {3.545430147155245*^9, 
   3.5454301475252457`*^9}, {3.5461230523008223`*^9, 
   3.5461230523008223`*^9}, {3.546123177490998*^9, 3.5461231783909993`*^9}, {
   3.546213260725501*^9, 3.546213260725501*^9}, {3.546535854979783*^9, 
   3.546535854979783*^9}, {3.546568971942576*^9, 3.546568971942576*^9}, {
   3.5481798372101097`*^9, 3.5481798372101097`*^9}, {3.548179951948312*^9, 
   3.548179951948312*^9}, {3.605986470548625*^9, 3.605986472788628*^9}, {
   3.6059865053386736`*^9, 3.6059865053386736`*^9}, {3.606689467762175*^9, 
   3.606689467762175*^9}, {3.607550802455288*^9, 3.607550802455288*^9}, 
   3.626025635109581*^9}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"g", " ", 
      RowBox[{"Tan", "[", 
       RowBox[{"e", "+", 
        RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "p"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       RowBox[{"Tan", "[", 
        RowBox[{"e", "+", 
         RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}], "m"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"c", "+", 
      RowBox[{"d", " ", 
       RowBox[{"Tan", "[", 
        RowBox[{"e", "+", 
         RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}], "n"], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
     RowBox[{"\[Integral]", 
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"g", " ", 
          RowBox[{"Tan", "[", 
           RowBox[{"e", "+", 
            RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "p"], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"a", "+", 
          RowBox[{"b", " ", 
           RowBox[{"Tan", "[", 
            RowBox[{"e", "+", 
             RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}], "m"], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"c", "+", 
          RowBox[{"d", " ", 
           RowBox[{"Tan", "[", 
            RowBox[{"e", "+", 
             RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}], "n"], 
       RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9, 
   3.4975777938921027`*^9}, 3.49763959300025*^9, 3.497639634480723*^9, 
   3.4976398417426867`*^9, {3.49766381031778*^9, 3.4976638350282235`*^9}, {
   3.49766435104593*^9, 3.497664390373599*^9}, {3.4976647278489914`*^9, 
   3.4976647419046164`*^9}, {3.497664869980841*^9, 3.497664887437272*^9}, {
   3.498761171082196*^9, 3.498761171082196*^9}, {3.4987645684369526`*^9, 
   3.4987646442070584`*^9}, {3.49883740188522*^9, 3.4988375207310295`*^9}, {
   3.498837939529365*^9, 3.498837958467798*^9}, 3.498875518717125*^9, {
   3.4991794250335026`*^9, 3.499179452879552*^9}, {3.4991796787211485`*^9, 
   3.499179681529153*^9}, {3.4991961982482667`*^9, 3.4991962392763386`*^9}, {
   3.499196653100665*^9, 3.4991966955639396`*^9}, {3.499197135282312*^9, 
   3.499197176918785*^9}, {3.499197690444487*^9, 3.499197694048094*^9}, {
   3.499212356332161*^9, 3.4992123865622034`*^9}, {3.499212421412252*^9, 
   3.499212423032254*^9}, {3.4992126233625345`*^9, 3.499212696332637*^9}, {
   3.499357348905704*^9, 3.4993574380910606`*^9}, {3.4993588274861555`*^9, 
   3.4993589039462624`*^9}, {3.499359110096551*^9, 3.4993591137965565`*^9}, {
   3.4993752824791145`*^9, 3.4993752993591385`*^9}, {3.4994041904561324`*^9, 
   3.4994041927361355`*^9}, {3.499404246686211*^9, 3.499404275156251*^9}, {
   3.499404742476905*^9, 3.4994047525269194`*^9}, {3.500317978262911*^9, 
   3.500317979417313*^9}, 3.500318137887991*^9, {3.5030149938276834`*^9, 
   3.5030149992252927`*^9}, 3.505344641363784*^9, {3.505344693023856*^9, 
   3.5053447149738874`*^9}, 3.5053535459551945`*^9, {3.5094696268243294`*^9, 
   3.509469698805446*^9}, {3.509469791674758*^9, 3.509469802752392*^9}, {
   3.509469914234768*^9, 3.5094699164558954`*^9}, {3.509470445456152*^9, 
   3.509470483604334*^9}, {3.5094706454305897`*^9, 3.50947066641179*^9}, {
   3.5094707559529114`*^9, 3.5094707698497066`*^9}, 3.5094708527324467`*^9, {
   3.5094710367959747`*^9, 3.5094710383620644`*^9}, 3.5094711873785877`*^9, 
   3.5094801966418877`*^9, {3.5095014754320154`*^9, 3.5095014757128158`*^9}, {
   3.509501663985547*^9, 3.5095016805839767`*^9}, {3.509828555552424*^9, 
   3.5098285973424826`*^9}, {3.509828656532565*^9, 3.509828698932625*^9}, {
   3.5098287432526865`*^9, 3.5098287837327433`*^9}, {3.5101746549548464`*^9, 
   3.5101746581060524`*^9}, {3.510174939280946*^9, 3.510174959092981*^9}, {
   3.5151682145645065`*^9, 3.5151682184145117`*^9}, {3.5454191112425594`*^9, 
   3.545419113769764*^9}, {3.5461244478127766`*^9, 3.54612445038278*^9}, 
   3.5969428687185373`*^9, 3.5969429671235104`*^9, {3.605987154242098*^9, 
   3.605987156877102*^9}, {3.626025665280034*^9, 3.6260256684624395`*^9}, {
   3.6301716210371165`*^9, 3.6301716210839167`*^9}, {3.664297248612647*^9, 
   3.6642972521108475`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"g_.", "*", 
        RowBox[{"tan", "[", 
         RowBox[{"e_.", "+", 
          RowBox[{"f_.", "*", "x_"}]}], "]"}]}], ")"}], "^", "p_."}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_", "+", 
        RowBox[{"b_.", "*", 
         RowBox[{"tan", "[", 
          RowBox[{"e_.", "+", 
           RowBox[{"f_.", "*", "x_"}]}], "]"}]}]}], ")"}], "^", "m_"}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"c_", "+", 
        RowBox[{"d_.", "*", 
         RowBox[{"tan", "[", 
          RowBox[{"e_.", "+", 
           RowBox[{"f_.", "*", "x_"}]}], "]"}]}]}], ")"}], "^", "n_"}]}], ",",
     "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{"Unintegrable", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"g", "*", 
         RowBox[{"Tan", "[", 
          RowBox[{"e", "+", 
           RowBox[{"f", "*", "x"}]}], "]"}]}], ")"}], "^", "p"}], "*", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"a", "+", 
         RowBox[{"b", "*", 
          RowBox[{"Tan", "[", 
           RowBox[{"e", "+", 
            RowBox[{"f", "*", "x"}]}], "]"}]}]}], ")"}], "^", "m"}], "*", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"c", "+", 
         RowBox[{"d", "*", 
          RowBox[{"Tan", "[", 
           RowBox[{"e", "+", 
            RowBox[{"f", "*", "x"}]}], "]"}]}]}], ")"}], "^", "n"}]}], ",", 
     "x"}], "]"}], " ", "/;", "\n", 
   RowBox[{"FreeQ", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "f", ",", "g", ",", 
       "m", ",", "n", ",", "p"}], "}"}], ",", "x"}], "]"}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9, 
   3.4976395861674376`*^9, 3.4976397432129135`*^9, 3.4976633737510133`*^9, 
   3.497663791067346*^9, 3.497664242469739*^9, {3.49766439658241*^9, 
   3.497664398470013*^9}, 3.497664769079864*^9, {3.4986774515679674`*^9, 
   3.49867746046798*^9}, {3.498761171092196*^9, 3.4987611711021957`*^9}, {
   3.4987647642072268`*^9, 3.4987647797772484`*^9}, {3.4987662584793186`*^9, 
   3.498766258909319*^9}, {3.4987729599087005`*^9, 3.4987729607687016`*^9}, 
   3.4988018581019883`*^9, {3.499179579551774*^9, 3.4991796094414263`*^9}, {
   3.499179689157567*^9, 3.499179691637971*^9}, {3.4991797663621025`*^9, 
   3.499179767407304*^9}, {3.499179868308281*^9, 3.499179869805884*^9}, 
   3.499180259000168*^9, {3.499197395157969*^9, 3.499197401054779*^9}, {
   3.499212499112361*^9, 3.49921251269238*^9}, {3.499212715522664*^9, 
   3.4992127382126956`*^9}, {3.4992128038327875`*^9, 
   3.4992128061327906`*^9}, {3.499213982604438*^9, 3.499214025174497*^9}, {
   3.499214066304555*^9, 3.499214072114563*^9}, {3.4992145411652193`*^9, 
   3.4992145475152283`*^9}, 3.4993574899767523`*^9, {3.4993576909831047`*^9, 
   3.4993577157403483`*^9}, 3.4993578086385117`*^9, {3.4993579390391407`*^9, 
   3.4993579651067867`*^9}, {3.4993580774113836`*^9, 3.4993580785501857`*^9}, 
   3.499358991716386*^9, {3.4993590256364326`*^9, 3.499359034196445*^9}, 
   3.499359158156618*^9, {3.499359230066719*^9, 3.4993592406667337`*^9}, {
   3.499363855658249*^9, 3.499363864218261*^9}, {3.4993753165091624`*^9, 
   3.499375327739178*^9}, {3.500317979448513*^9, 3.500317979729314*^9}, {
   3.500318356413175*^9, 3.5003183706092*^9}, {3.500319044263768*^9, 
   3.5003190515337787`*^9}, {3.500321448217134*^9, 3.5003214542871428`*^9}, {
   3.500432003250804*^9, 3.5004320043278656`*^9}, {3.5010431659740324`*^9, 
   3.5010431675511227`*^9}, 3.50267709922139*^9, {3.502677262251618*^9, 
   3.502677280331643*^9}, 3.5027670673403025`*^9, {3.5030150059333043`*^9, 
   3.5030150148565197`*^9}, {3.503071953798221*^9, 3.5030719623082333`*^9}, {
   3.5035497609313307`*^9, 3.5035497734613485`*^9}, 3.503876194868781*^9, {
   3.504156461196662*^9, 3.5041564626786647`*^9}, 3.505344641373784*^9, {
   3.5053446930538564`*^9, 3.505344714983887*^9}, 3.5053535482551975`*^9, {
   3.5094719943757453`*^9, 3.509471999082014*^9}, {3.5094721711418557`*^9, 
   3.5094721778162374`*^9}, {3.50947240515324*^9, 3.509472413765733*^9}, 
   3.5094733026345735`*^9, {3.509475150960292*^9, 3.5094751544394903`*^9}, {
   3.509501480299224*^9, 3.5095014852600327`*^9}, {3.5095016962152033`*^9, 
   3.5095017075096235`*^9}, 3.5098286293025274`*^9, {3.509828898462904*^9, 
   3.5098289238329396`*^9}, {3.5098337006312838`*^9, 3.509833704827691*^9}, 
   3.5101745819155183`*^9, {3.510174660804857*^9, 3.5101746635348616`*^9}, {
   3.5101749657229924`*^9, 3.510174983897024*^9}, 3.510179441609301*^9, 
   3.510438752973152*^9, 3.511227636250307*^9, 3.5114939922953677`*^9, 
   3.511806385340789*^9, 3.514403488313138*^9, {3.515197880917452*^9, 
   3.5151978814790525`*^9}, {3.515978349796089*^9, 3.5159783519332933`*^9}, 
   3.5166675221732535`*^9, 3.5168206559364614`*^9, 3.5168238870016394`*^9, 
   3.5170754944729843`*^9, {3.517075645023195*^9, 3.5170756457431955`*^9}, 
   3.541090454410923*^9, 3.541090537708269*^9, 3.541090593571967*^9, {
   3.5419774852844076`*^9, 3.541977492824418*^9}, {3.545418900283389*^9, 
   3.5454189017497916`*^9}, {3.545419127232588*^9, 3.54541915136583*^9}, 
   3.545419192393902*^9, {3.5454192425703907`*^9, 3.545419243584392*^9}, {
   3.54542002674397*^9, 3.545420034433981*^9}, {3.5454210176773586`*^9, 
   3.545421021277364*^9}, {3.5454217048903217`*^9, 3.5454217071303253`*^9}, {
   3.5454217644704056`*^9, 3.5454217689004116`*^9}, {3.5455309252556715`*^9, 
   3.5455309319756804`*^9}, {3.5455950324942245`*^9, 
   3.5455950354242287`*^9}, {3.546105998684428*^9, 3.5461060230204706`*^9}, 
   3.5461060987274036`*^9, {3.5461064997885084`*^9, 3.546106521644147*^9}, 
   3.5465418895757313`*^9, {3.548015040442136*^9, 3.548015043912141*^9}, {
   3.5969428715109425`*^9, 3.596942879794557*^9}, {3.5969429187010255`*^9, 
   3.596942930463446*^9}, {3.6059871677271175`*^9, 3.605987210617179*^9}, 
   3.6075507855352645`*^9, {3.6075508819353995`*^9, 3.607550883515402*^9}, {
   3.626025621989958*^9, 3.6260256461856003`*^9}, {3.626025700411296*^9, 
   3.626025711253315*^9}, 3.626570927987018*^9, 3.626570968359889*^9, 
   3.6266603296313252`*^9, {3.630171621099517*^9, 3.63017163693736*^9}, {
   3.6642972562750854`*^9, 3.6642972603233175`*^9}, {3.6642973193666945`*^9, 
   3.6642973245139885`*^9}, {3.6642973584839315`*^9, 
   3.6642973651883154`*^9}, {3.6643004698368907`*^9, 3.6643004752061977`*^9}, 
   3.7123375734951277`*^9, 3.7155494282376604`*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.6262285618785048`*^9, 3.6262285629185057`*^9}}],

Cell[BoxData[Cell[TextData[{
  StyleBox["Rules for integrands of the form ",
   FontFamily->"Arial"],
  Cell[BoxData[
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"g", " ", 
       SuperscriptBox[
        RowBox[{"Tan", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}], "q"]}], ")"}], "p"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"Tan", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}], "m"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"c", "+", 
       RowBox[{"d", " ", 
        RowBox[{"Tan", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}], "n"]}]],
   CellDingbat->None,
   CellChangeTimes->{
    3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
     3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
     3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
     3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
     3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
     3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
     3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
     3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
     3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
     3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
     3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
     3.5193325694253187`*^9, {3.5193415004828687`*^9, 
     3.5193415113404875`*^9}, {3.5193513965602303`*^9, 
     3.519351397420232*^9}, {3.5194037839416766`*^9, 3.5194037847117205`*^9}, 
     3.52105258275843*^9, 3.5210531741726685`*^9, {3.521057461672199*^9, 
     3.5210574760242243`*^9}, {3.521059881564049*^9, 3.521059886088057*^9}, {
     3.5213902158895197`*^9, 3.521390217543123*^9}, {3.521390827878595*^9, 
     3.521390829376197*^9}, {3.5214688792561245`*^9, 3.521468879443325*^9}, {
     3.523320201951167*^9, 3.523320202247567*^9}, {3.5288596764894824`*^9, 
     3.5288596768094826`*^9}, {3.529196266260353*^9, 
     3.5291962665099535`*^9}, {3.5291997050223927`*^9, 
     3.5291997052563934`*^9}, {3.529201346457276*^9, 3.529201347252877*^9}, {
     3.529285041073242*^9, 3.5292850412632427`*^9}, {3.529285215443486*^9, 
     3.529285215443486*^9}, {3.5295115356999426`*^9, 
     3.5295115433443794`*^9}, {3.529521412127842*^9, 3.529521414647986*^9}, {
     3.529529429975619*^9, 3.529529432955224*^9}, 3.5340074894011116`*^9, 
     3.5415537711400824`*^9, {3.5415538409034047`*^9, 3.541553841106205*^9}, {
     3.5415564120531206`*^9, 3.5415564206955357`*^9}, 
     3.5415565488341613`*^9, {3.5415605631516123`*^9, 
     3.5415605860836525`*^9}, {3.541561323247347*^9, 3.5415613234501476`*^9}, 
     3.5416162115728135`*^9, {3.5416506679001875`*^9, 3.541650687980216*^9}, 
     3.560533948494043*^9, 3.560538006319724*^9, {3.5605392374714475`*^9, 
     3.5605392382814484`*^9}, 3.5606250606115856`*^9, 3.5617573869745255`*^9, 
     3.561757856045182*^9, {3.561761339582559*^9, 3.5617613636025925`*^9}, {
     3.5617652519980364`*^9, 3.561765252188037*^9}, {3.561767460571129*^9, 
     3.5617674608411293`*^9}, 3.5621081762414055`*^9, {3.5621084468550806`*^9,
      3.5621084519718895`*^9}, 3.563340740121106*^9},
   FontWeight->"Bold"]
 }], "None"]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.4965234353062396`*^9, {3.5193214825316973`*^9, 3.5193214852617016`*^9}, {
   3.523316399894187*^9, 3.5233164032341914`*^9}, {3.523318350558202*^9, 
   3.5233183516382036`*^9}, {3.536542725780803*^9, 3.536542725780803*^9}, {
   3.5367764878952584`*^9, 3.5367764886452594`*^9}, {3.544322815209103*^9, 
   3.5443228192963104`*^9}, {3.5450662624913826`*^9, 3.545066292141424*^9}, {
   3.545066402271579*^9, 3.5450664054415827`*^9}, {3.5450834884295015`*^9, 
   3.5450834895895033`*^9}, {3.5454961263762493`*^9, 
   3.5454961321462574`*^9}, {3.5454963863166127`*^9, 
   3.5454964580867133`*^9}, {3.545497046127537*^9, 3.545497046127537*^9}, {
   3.5454971130676303`*^9, 3.545497136257663*^9}, 3.545610399977621*^9, {
   3.546040778592962*^9, 3.546040778592962*^9}, {3.5461052065706367`*^9, 
   3.5461052249474688`*^9}, {3.546191339879622*^9, 3.5461913430596266`*^9}, {
   3.5462141824067917`*^9, 3.5462142145768366`*^9}, {3.5462145455473003`*^9, 
   3.5462145601073203`*^9}, {3.5463149785974817`*^9, 
   3.5463149794195285`*^9}, {3.5488738437683954`*^9, 
   3.5488738699084315`*^9}, {3.5488890647645535`*^9, 3.548889080804576*^9}, {
   3.5505951583099127`*^9, 3.5505951620351257`*^9}, {3.5505952613798075`*^9, 
   3.5505952630869055`*^9}, {3.5535321133435373`*^9, 
   3.5535321173537664`*^9}, {3.5536175341411576`*^9, 
   3.5536175352411594`*^9}, {3.55396599671187*^9, 3.55396599862998*^9}, {
   3.560190530310161*^9, 3.560190628512334*^9}, {3.5602162723838596`*^9, 
   3.5602162793138695`*^9}, {3.5606249190913877`*^9, 3.560624924321395*^9}, {
   3.5617663419995623`*^9, 3.5617663705796027`*^9}, {3.5617666456099873`*^9, 
   3.561766656350003*^9}, {3.562107691486154*^9, 3.5621077390350375`*^9}, {
   3.5621080165751247`*^9, 3.5621080185719285`*^9}, {3.5621081511877613`*^9, 
   3.5621081511877613`*^9}, {3.5633407304210925`*^9, 3.563340730891093*^9}, {
   3.575852587746504*^9, 3.575852593256511*^9}, {3.575852659996605*^9, 
   3.575852659996605*^9}, {3.575852743186721*^9, 3.575852743186721*^9}, {
   3.57585284254686*^9, 3.575852895956935*^9}, {3.575853026617118*^9, 
   3.575853038617135*^9}, {3.575853153907296*^9, 3.575853185757341*^9}, {
   3.575853290447487*^9, 3.575853290447487*^9}, {3.59677884868538*^9, 
   3.59677885607539*^9}, {3.6058945381758122`*^9, 3.6058945724490724`*^9}, {
   3.6080751006970787`*^9, 3.6080751257671137`*^9}, {3.609608817980541*^9, 
   3.609608817980541*^9}, {3.6096442951947145`*^9, 3.6096442951947145`*^9}, {
   3.609995115128792*^9, 3.609995115128792*^9}, {3.6260223509138126`*^9, 
   3.6260223634718347`*^9}, {3.626228567618512*^9, 3.6262285683085136`*^9}, {
   3.626228701946702*^9, 3.6262287087767115`*^9}, {3.6262287508617716`*^9, 
   3.6262287514017725`*^9}, {3.6301688347711334`*^9, 
   3.6301688380315394`*^9}, {3.630171621130717*^9, 3.630171621130717*^9}, {
   3.6301716815410414`*^9, 3.630171681556641*^9}, {3.664297391082796*^9, 
   3.664297402287437*^9}},
 TextAlignment->Center,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{Cell[TextData[StyleBox["1:",
   FontFamily->"Arial",
   FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"g", " ", 
       RowBox[{"Cot", "[", 
        RowBox[{"e", "+", 
         RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "p"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"Tan", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}], "m"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"c", "+", 
       RowBox[{"d", " ", 
        RowBox[{"Tan", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}], "n"], 
    RowBox[{"\[DifferentialD]", "x"}], "  ", 
    StyleBox["when",
     FontFamily->"Arial",
     FontWeight->"Plain"], 
    StyleBox["  ",
     FontFamily->"Arial",
     FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
     RowBox[{
      RowBox[{"p", "\[NotElement]", "\[DoubleStruckCapitalZ]"}], " ", 
      "\[And]", " ", 
      RowBox[{"m", "\[Element]", "\[DoubleStruckCapitalZ]"}], " ", "\[And]", 
      " ", 
      RowBox[{"n", "\[Element]", "\[DoubleStruckCapitalZ]"}]}]]]], 
     "None"]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9, 
   3.4965117206885777`*^9, 3.5192471175756674`*^9, {3.5192587973599553`*^9, 
   3.5192588081399703`*^9}, {3.519321495105319*^9, 3.5193214991925263`*^9}, 
   3.5193247857072587`*^9, {3.5194051897010813`*^9, 3.5194051902791147`*^9}, {
   3.5194055551249824`*^9, 3.5194055708408813`*^9}, {3.519405711316916*^9, 
   3.51940572904193*^9}, {3.519410772192028*^9, 3.5194107776364374`*^9}, {
   3.519413782484516*^9, 3.519413782827717*^9}, {3.519767588664174*^9, 
   3.519767611128214*^9}, {3.5197937941314034`*^9, 3.519793794568204*^9}, {
   3.5197947626591043`*^9, 3.519794764749508*^9}, {3.519794865354085*^9, 
   3.519794874355301*^9}, {3.523218063086026*^9, 3.523218070356036*^9}, {
   3.523316514684347*^9, 3.523316514684347*^9}, {3.5233165475343933`*^9, 
   3.5233165475343933`*^9}, {3.5233184331871357`*^9, 
   3.5233184334271364`*^9}, {3.5273599103435545`*^9, 3.527359910608755*^9}, {
   3.5326424241029196`*^9, 3.53264242435292*^9}, {3.5326584126048727`*^9, 
   3.532658412794873*^9}, {3.532726454021428*^9, 3.5327264542814283`*^9}, {
   3.5327554047263184`*^9, 3.532755404993334*^9}, {3.532798666112293*^9, 
   3.532798676322307*^9}, {3.5328778343810363`*^9, 3.5328778343810363`*^9}, 
   3.5330758294771795`*^9, {3.5330827570868783`*^9, 3.533082757336879*^9}, {
   3.534975097668671*^9, 3.534975097888672*^9}, {3.536863459221404*^9, 
   3.536863459439804*^9}, {3.540264711953947*^9, 3.5402647253239655`*^9}, {
   3.540264783504047*^9, 3.540264783504047*^9}, {3.540502117527218*^9, 
   3.540502117997218*^9}, {3.540502551737826*^9, 3.540502551937826*^9}, {
   3.5449015667548094`*^9, 3.5449015920048447`*^9}, {3.544901714065016*^9, 
   3.544901727955035*^9}, 3.5449017981251335`*^9, 3.546020159503343*^9, 
   3.5460203600136237`*^9, {3.5460310752738647`*^9, 3.546031077643868*^9}, {
   3.546031126313936*^9, 3.5460311265239363`*^9}, 3.546801688439275*^9, {
   3.546801866581126*^9, 3.5468018676511273`*^9}, {3.546802184066374*^9, 
   3.5468021843363743`*^9}, 3.5468025388912745`*^9, {3.5468028870629654`*^9, 
   3.546802888792968*^9}, {3.5468203931730013`*^9, 3.5468204595030947`*^9}, 
   3.5468206697133884`*^9, {3.5468209271537495`*^9, 3.5468209271537495`*^9}, {
   3.546822281335645*^9, 3.5468222849556503`*^9}, 3.5468235641274414`*^9, 
   3.5468258137805905`*^9, {3.5468258607206564`*^9, 3.5468258632806597`*^9}, {
   3.546826290091257*^9, 3.5468262923612604`*^9}, {3.546826571041651*^9, 
   3.546826574901656*^9}, {3.548171489157048*^9, 3.548171502463872*^9}, {
   3.548175565334606*^9, 3.548175565334606*^9}, {3.578589249409753*^9, 
   3.578589249619754*^9}, 3.5838055360974493`*^9, 3.583805660727624*^9, {
   3.583805707247689*^9, 3.583805707247689*^9}, 3.5970044709597864`*^9, {
   3.606352540822091*^9, 3.6063525564621134`*^9}, {3.60635274711238*^9, 
   3.606352749722384*^9}, {3.6063536116035905`*^9, 3.606353629223615*^9}, {
   3.6064061585847015`*^9, 3.606406160984705*^9}, {3.6064066957654533`*^9, 
   3.6064067278354983`*^9}, {3.606406798225597*^9, 3.606406798225597*^9}, 
   3.6064170699399776`*^9, {3.6064171476100864`*^9, 3.6064171540000954`*^9}, 
   3.6065877185111747`*^9, {3.6069296822972994`*^9, 3.606929694987317*^9}, {
   3.609209703619203*^9, 3.6092097324392433`*^9}, {3.6092098217793684`*^9, 
   3.609209849339407*^9}, 3.60921000847963*^9, {3.609210214839919*^9, 
   3.609210217029922*^9}, {3.6092104297202196`*^9, 3.6092104310802217`*^9}, {
   3.609215060718704*^9, 3.609215076928727*^9}, {3.6100494427274294`*^9, 
   3.610049463297458*^9}, 3.610070551558385*^9, {3.6100707471686587`*^9, 
   3.6100707473786592`*^9}, {3.610160342665924*^9, 3.6101603759759707`*^9}, {
   3.623792179959832*^9, 3.623792179959832*^9}, {3.623792338932912*^9, 
   3.623792338932912*^9}, {3.6237925174078255`*^9, 3.6237925174078255`*^9}, {
   3.623858885271776*^9, 3.623858885531777*^9}, {3.623860762659764*^9, 
   3.6238607846737957`*^9}, {3.623878845749161*^9, 3.6238788465391617`*^9}, 
   3.623879012967399*^9, {3.6240408571396933`*^9, 3.6240408912507415`*^9}, {
   3.6240421282418795`*^9, 3.6240421412318974`*^9}, {3.624042251850055*^9, 
   3.6240422661670756`*^9}, {3.6240433071157446`*^9, 
   3.6240433071157446`*^9}, {3.624044579520734*^9, 3.6240446068187723`*^9}, {
   3.6240461060662766`*^9, 3.6240461060662766`*^9}, {3.624046386622675*^9, 
   3.624046386622675*^9}, {3.624056237432206*^9, 3.624056237432206*^9}, {
   3.6240567038928595`*^9, 3.624056704622861*^9}, {3.6252629362370358`*^9, 
   3.6252629723270864`*^9}, {3.626023449826543*^9, 3.626023461932164*^9}, {
   3.626042362326043*^9, 3.6260423626460433`*^9}, {3.626209498235474*^9, 
   3.626209499405476*^9}, {3.626210483325805*^9, 3.626210484963808*^9}, {
   3.62621583070361*^9, 3.6262158326068134`*^9}, {3.6262286142615786`*^9, 
   3.6262286255555944`*^9}, {3.626228668370655*^9, 3.6262286745806637`*^9}, {
   3.6262287541917763`*^9, 3.626228754641777*^9}, {3.626228932402028*^9, 
   3.626228932602029*^9}, 3.626229266799502*^9, {3.6301674528877516`*^9, 
   3.6301674682235785`*^9}, {3.630167733162249*^9, 3.6301677581886935`*^9}, 
   3.630168466511684*^9, 3.630169154321436*^9, 3.6301716211619167`*^9, {
   3.630171681587841*^9, 3.630171681603441*^9}, 3.664297436042368*^9, {
   3.6642975679029093`*^9, 3.6642975773454494`*^9}, {3.6642984395767665`*^9, 
   3.664298440374812*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Algebraic normalization", "Subsubsection",
 CellChangeTimes->{
  3.479686820458373*^9, {3.490657960122612*^9, 3.49065796095366*^9}, 
   3.4964414996009283`*^9, {3.4964447088058186`*^9, 3.4964447131058245`*^9}, 
   3.496528844063812*^9, 3.497575950496916*^9, 3.4975775797018027`*^9, 
   3.497639496888481*^9, 3.4976636252234545`*^9, 3.497665167504564*^9, {
   3.561226054703641*^9, 3.5612260578536453`*^9}, {3.564014697112665*^9, 
   3.5640146992226686`*^9}, {3.564014729972711*^9, 3.564014741602728*^9}, 
   3.564154158611103*^9, {3.6252549507211504`*^9, 3.6252549526711535`*^9}, 
   3.6254347678314524`*^9}],

Cell[TextData[{
 "Basis:",
 " If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"m", "\[Element]", "\[DoubleStruckCapitalZ]"}], " ", "\[And]", " ", 
   RowBox[{"n", "\[Element]", "\[DoubleStruckCapitalZ]"}]}]]],
 ", then",
 " ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"Tan", "[", "z", "]"}]}]}], ")"}], "m"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"c", "+", 
       RowBox[{"d", " ", 
        RowBox[{"Tan", "[", "z", "]"}]}]}], ")"}], "n"]}], "\[Equal]", 
   FractionBox[
    RowBox[{
     SuperscriptBox["g", 
      RowBox[{"m", "+", "n"}]], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"b", "+", 
        RowBox[{"a", " ", 
         RowBox[{"Cot", "[", "z", "]"}]}]}], ")"}], "m"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"d", "+", 
        RowBox[{"c", " ", 
         RowBox[{"Cot", "[", "z", "]"}]}]}], ")"}], "n"]}], 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"g", " ", 
       RowBox[{"Cot", "[", "z", "]"}]}], ")"}], 
     RowBox[{"m", "+", "n"}]]]}]],
  CellChangeTimes->{{3.6252550900937953`*^9, 3.6252551495650997`*^9}}]
}], "Subsubsection",
 CellChangeTimes->{
  3.479686820458373*^9, {3.490657960122612*^9, 3.49065796095366*^9}, 
   3.4964414996009283`*^9, {3.4964447088058186`*^9, 3.4964447131058245`*^9}, 
   3.496528844063812*^9, 3.497575950496916*^9, 3.4975775797018027`*^9, 
   3.497639496888481*^9, 3.4976636252234545`*^9, 3.497665167504564*^9, {
   3.561226054703641*^9, 3.5612260578536453`*^9}, {3.564014697112665*^9, 
   3.5640146992226686`*^9}, {3.564014729972711*^9, 3.564014741602728*^9}, 
   3.564154158611103*^9, {3.6252549507211504`*^9, 3.6252549526711535`*^9}, {
   3.6252551596895175`*^9, 3.62525516669593*^9}, {3.6260264917338853`*^9, 
   3.6260264917338853`*^9}, {3.630169346115574*^9, 3.630169346115574*^9}, {
   3.630171621193117*^9, 3.630171621193117*^9}, {3.630171681603441*^9, 
   3.630171681603441*^9}, {3.664297779604018*^9, 3.664297810316775*^9}, {
   3.6642980350306277`*^9, 3.6642980350306277`*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"p", "\[NotElement]", "\[DoubleStruckCapitalZ]"}], " ", "\[And]", 
   " ", 
   RowBox[{"m", "\[Element]", "\[DoubleStruckCapitalZ]"}], " ", "\[And]", " ", 
   RowBox[{"n", "\[Element]", "\[DoubleStruckCapitalZ]"}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9, 
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, {
   3.4976638984111347`*^9, 3.4976639153215647`*^9}, {3.4976645939383564`*^9, 
   3.497664598805565*^9}, {3.4976646480080514`*^9, 3.4976646992229414`*^9}, {
   3.4976647966763124`*^9, 3.497664832415975*^9}, 3.497664903037299*^9, {
   3.4986779242986293`*^9, 3.498677947778662*^9}, {3.499179738750054*^9, 
   3.499179740902858*^9}, {3.499213316063504*^9, 3.4992133345435305`*^9}, {
   3.499358051967739*^9, 3.4993580717017736`*^9}, {3.4993592718267775`*^9, 
   3.4993592794067883`*^9}, {3.499363873578274*^9, 3.4993638796182823`*^9}, {
   3.50031965968463*^9, 3.5003196639146357`*^9}, {3.5004320083900976`*^9, 
   3.5004320093321514`*^9}, {3.5013559257793446`*^9, 
   3.5013559257793446`*^9}, {3.5013564069000177`*^9, 3.501356418530034*^9}, {
   3.5026761650200815`*^9, 3.5026762017401333`*^9}, {3.5026762588802133`*^9, 
   3.5026762588802133`*^9}, {3.5026784726933126`*^9, 
   3.5026784726933126`*^9}, {3.5027658552205725`*^9, 
   3.5027658552205725`*^9}, {3.5027672224669743`*^9, 
   3.5027672224669743`*^9}, {3.504028644986937*^9, 3.5040286460633388`*^9}, 
   3.504031871520604*^9, {3.5042969469757376`*^9, 3.504296966725765*^9}, 
   3.5043107598680983`*^9, {3.504747625602626*^9, 3.5047476267926273`*^9}, {
   3.5051010704066515`*^9, 3.505101092536682*^9}, {3.5094730728464303`*^9, 
   3.5094730728464303`*^9}, {3.5095545822823973`*^9, 
   3.5095545998824224`*^9}, {3.5101727293810644`*^9, 
   3.5101727293810644`*^9}, {3.5101793585079556`*^9, 
   3.5101793589291563`*^9}, {3.5117212591249695`*^9, 
   3.5117212591249695`*^9}, {3.5121869358089046`*^9, 3.512186937088107*^9}, 
   3.5132794143763943`*^9, {3.5132798091269464`*^9, 3.5132798091269464`*^9}, {
   3.5132937204487925`*^9, 3.51329373291881*^9}, {3.513708063040167*^9, 
   3.513708085831807*^9}, {3.546818725320667*^9, 3.5468187253306665`*^9}, {
   3.546818923110944*^9, 3.546818923110944*^9}, {3.5468198049321785`*^9, 
   3.5468198049321785`*^9}, {3.546819845442235*^9, 3.546819845442235*^9}, {
   3.546820459793095*^9, 3.546820459793095*^9}, {3.546822301565674*^9, 
   3.546822301565674*^9}, {3.5468259256607475`*^9, 3.54682592784075*^9}, {
   3.5468266085117035`*^9, 3.5468266085117035`*^9}, {3.5481755690318127`*^9, 
   3.5481755690318127`*^9}, {3.563043358927075*^9, 3.563043359127075*^9}, {
   3.583805726657716*^9, 3.583805726657716*^9}, {3.60635276855241*^9, 
   3.60635276855241*^9}, {3.6063536490736427`*^9, 3.6063536490736427`*^9}, {
   3.60640686451569*^9, 3.6064068645256896`*^9}, {3.6069297715874243`*^9, 
   3.6069297719374247`*^9}, {3.610049465317461*^9, 3.610049465317461*^9}, {
   3.6101603846659827`*^9, 3.6101603846659827`*^9}, {3.623792190803851*^9, 
   3.623792190803851*^9}, {3.6237923394789133`*^9, 3.6237923394789133`*^9}, {
   3.6237925181254272`*^9, 3.6237925181254272`*^9}, {3.623860820813846*^9, 
   3.623860820813846*^9}, {3.6238788505491676`*^9, 3.6238788514091687`*^9}, {
   3.6240409126547723`*^9, 3.6240409126547723`*^9}, {3.624042275470089*^9, 
   3.624042275470089*^9}, {3.624043307805746*^9, 3.624043307805746*^9}, {
   3.624044615993786*^9, 3.624044622093794*^9}, {3.6240461067262774`*^9, 
   3.6240461067262774`*^9}, {3.624046387342676*^9, 3.624046387342676*^9}, {
   3.6240562380922074`*^9, 3.6240562380922074`*^9}, {3.624056700242854*^9, 
   3.624056700482855*^9}, {3.6260234527125473`*^9, 3.6260234527125473`*^9}, {
   3.6262094883450565`*^9, 3.6262095054134865`*^9}, {3.6262286517806315`*^9, 
   3.6262286517806315`*^9}, {3.6301674776771955`*^9, 
   3.6301674776771955`*^9}, {3.6301678385306363`*^9, 
   3.6301678385306363`*^9}, {3.6642984453190947`*^9, 3.6642984462161465`*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"g", " ", 
      RowBox[{"Cot", "[", 
       RowBox[{"e", "+", 
        RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "p"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       RowBox[{"Tan", "[", 
        RowBox[{"e", "+", 
         RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}], "m"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"c", "+", 
      RowBox[{"d", " ", 
       RowBox[{"Tan", "[", 
        RowBox[{"e", "+", 
         RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}], "n"], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
     SuperscriptBox["g", 
      RowBox[{"m", "+", "n"}]]}]}], 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"g", " ", 
        RowBox[{"Cot", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], 
      RowBox[{"p", "-", "m", "-", "n"}]], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"b", "+", 
        RowBox[{"a", " ", 
         RowBox[{"Cot", "[", 
          RowBox[{"e", "+", 
           RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}], "m"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"d", "+", 
        RowBox[{"c", " ", 
         RowBox[{"Cot", "[", 
          RowBox[{"e", "+", 
           RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}], "n"], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9, 
   3.4975777938921027`*^9}, 3.49763959300025*^9, 3.497639634480723*^9, 
   3.4976398417426867`*^9, {3.49766381031778*^9, 3.4976638350282235`*^9}, {
   3.49766435104593*^9, 3.497664390373599*^9}, {3.4976647278489914`*^9, 
   3.4976647419046164`*^9}, {3.497664869980841*^9, 3.497664887437272*^9}, {
   3.498761171082196*^9, 3.498761171082196*^9}, {3.4987645684369526`*^9, 
   3.4987646442070584`*^9}, {3.49883740188522*^9, 3.4988375207310295`*^9}, {
   3.498837939529365*^9, 3.498837958467798*^9}, 3.498875518717125*^9, {
   3.4991794250335026`*^9, 3.499179452879552*^9}, {3.4991796787211485`*^9, 
   3.499179681529153*^9}, {3.4991961982482667`*^9, 3.4991962392763386`*^9}, {
   3.499196653100665*^9, 3.4991966955639396`*^9}, {3.499197135282312*^9, 
   3.499197176918785*^9}, {3.499197690444487*^9, 3.499197694048094*^9}, {
   3.499212356332161*^9, 3.4992123865622034`*^9}, {3.499212421412252*^9, 
   3.499212423032254*^9}, {3.4992126233625345`*^9, 3.499212696332637*^9}, {
   3.499357348905704*^9, 3.4993574380910606`*^9}, {3.4993588274861555`*^9, 
   3.4993589039462624`*^9}, {3.499359110096551*^9, 3.4993591137965565`*^9}, {
   3.4993752824791145`*^9, 3.4993752993591385`*^9}, {3.4994041904561324`*^9, 
   3.4994041927361355`*^9}, {3.499404246686211*^9, 3.499404275156251*^9}, {
   3.499404742476905*^9, 3.4994047525269194`*^9}, {3.500317978262911*^9, 
   3.500317979417313*^9}, 3.500318137887991*^9, {3.5013559487293763`*^9, 
   3.501355958849391*^9}, {3.502675715869453*^9, 3.502675816299594*^9}, {
   3.5026759394697657`*^9, 3.50267594261977*^9}, {3.5040325720154343`*^9, 
   3.5040325776782446`*^9}, 3.505344641413784*^9, {3.5053446931638565`*^9, 
   3.505344715023887*^9}, 3.5053535547652063`*^9, {3.509472692844695*^9, 
   3.509472735704147*^9}, {3.5094728451264057`*^9, 3.509472933684471*^9}, {
   3.5095546485624905`*^9, 3.5095548310727463`*^9}, {3.509554944782905*^9, 
   3.509554978772953*^9}, {3.5095550311130257`*^9, 3.5095550406230392`*^9}, {
   3.5095551029731264`*^9, 3.509555110183137*^9}, {3.509555148833191*^9, 
   3.50955518414324*^9}, 3.5095552442833242`*^9, 3.5095554618336287`*^9, {
   3.5101725287803125`*^9, 3.51017253319512*^9}, {3.5101728354144506`*^9, 
   3.5101728382380557`*^9}, {3.5101734308362966`*^9, 3.510173455141139*^9}, {
   3.5132794480664415`*^9, 3.513279496296509*^9}, {3.5132795860166345`*^9, 
   3.513279591746642*^9}, {3.515187356869957*^9, 3.5151873589599595`*^9}, 
   3.5159766074458284`*^9, {3.546818756820711*^9, 3.5468187568407106`*^9}, {
   3.546818904940918*^9, 3.5468189423109703`*^9}, {3.5468192801114435`*^9, 
   3.5468192801114435`*^9}, {3.5468199864024324`*^9, 
   3.5468199866424327`*^9}, {3.546820459803095*^9, 3.546820459803095*^9}, 
   3.5630438453177557`*^9, {3.5970044731397896`*^9, 3.5970044904398136`*^9}, {
   3.6063529231626267`*^9, 3.6063530349427834`*^9}, {3.606353751953787*^9, 
   3.606353806243863*^9}, {3.606406455375117*^9, 3.606406472875141*^9}, {
   3.606929726727361*^9, 3.606929756537403*^9}, {3.6079891453781157`*^9, 
   3.6079891523081255`*^9}, {3.6079892302082343`*^9, 3.6079892504482627`*^9}, 
   3.609210024919653*^9, {3.609210107949769*^9, 3.6092101442898197`*^9}, {
   3.6092101789598684`*^9, 3.6092101795998697`*^9}, {3.6092151104487743`*^9, 
   3.6092151271587973`*^9}, {3.609215326509076*^9, 3.609215372429141*^9}, {
   3.6100496956377835`*^9, 3.610049699307789*^9}, {3.623792191599453*^9, 
   3.6237921928162546`*^9}, {3.6237923399937143`*^9, 3.623792340477315*^9}, {
   3.623873008923767*^9, 3.6238730143637743`*^9}, 3.624040919480782*^9, {
   3.6240409563898344`*^9, 3.62404100930991*^9}, 3.624042229135022*^9, 
   3.624044685311075*^9, 3.625262980557098*^9, {3.6252630306971684`*^9, 
   3.6252630314471693`*^9}, 3.6252641433328633`*^9, {3.6262287840108185`*^9, 
   3.626228816600864*^9}, {3.6262293230875816`*^9, 3.626229345197613*^9}, {
   3.6262293768676577`*^9, 3.626229384367669*^9}, {3.6301678720318956`*^9, 
   3.630167885999921*^9}, {3.6301679587442536`*^9, 3.630167981162493*^9}, {
   3.630168110728657*^9, 3.630168126656285*^9}, {3.630168300786192*^9, 
   3.6301683042805977`*^9}, 3.6301691626362505`*^9, {3.6301692959690857`*^9, 
   3.630169299635092*^9}, {3.6301693937972584`*^9, 3.6301694023616734`*^9}, {
   3.630171621208717*^9, 3.6301716212243166`*^9}, {3.6301716816190414`*^9, 
   3.6301716816190414`*^9}, {3.6642980622441845`*^9, 3.6642980963191333`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}, 3.60635396088408*^9, 3.6064065425552387`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"g_.", "*", 
        RowBox[{"cot", "[", 
         RowBox[{"e_.", "+", 
          RowBox[{"f_.", "*", "x_"}]}], "]"}]}], ")"}], "^", "p_"}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_.", "+", 
        RowBox[{"b_.", "*", 
         RowBox[{"tan", "[", 
          RowBox[{"e_.", "+", 
           RowBox[{"f_.", "*", "x_"}]}], "]"}]}]}], ")"}], "^", "m_."}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"c_", "+", 
        RowBox[{"d_.", "*", 
         RowBox[{"tan", "[", 
          RowBox[{"e_.", "+", 
           RowBox[{"f_.", "*", "x_"}]}], "]"}]}]}], ")"}], "^", "n_."}]}], 
    ",", "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{"g", "^", 
     RowBox[{"(", 
      RowBox[{"m", "+", "n"}], ")"}]}], "*", 
    RowBox[{"Int", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"g", "*", 
          RowBox[{"Cot", "[", 
           RowBox[{"e", "+", 
            RowBox[{"f", "*", "x"}]}], "]"}]}], ")"}], "^", 
        RowBox[{"(", 
         RowBox[{"p", "-", "m", "-", "n"}], ")"}]}], "*", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"b", "+", 
          RowBox[{"a", "*", 
           RowBox[{"Cot", "[", 
            RowBox[{"e", "+", 
             RowBox[{"f", "*", "x"}]}], "]"}]}]}], ")"}], "^", "m"}], "*", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"d", "+", 
          RowBox[{"c", "*", 
           RowBox[{"Cot", "[", 
            RowBox[{"e", "+", 
             RowBox[{"f", "*", "x"}]}], "]"}]}]}], ")"}], "^", "n"}]}], ",", 
      "x"}], "]"}]}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "f", ",", "g", ",", 
        "p"}], "}"}], ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"Not", "[", 
     RowBox[{"IntegerQ", "[", "p", "]"}], "]"}], " ", "&&", " ", 
    RowBox[{"IntegerQ", "[", "m", "]"}], " ", "&&", " ", 
    RowBox[{"IntegerQ", "[", "n", "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9, 
   3.4976395861674376`*^9, 3.4976397432129135`*^9, 3.4976633737510133`*^9, 
   3.497663791067346*^9, 3.497664242469739*^9, {3.49766439658241*^9, 
   3.497664398470013*^9}, 3.497664769079864*^9, {3.4986774515679674`*^9, 
   3.49867746046798*^9}, {3.498761171092196*^9, 3.4987611711021957`*^9}, {
   3.4987647642072268`*^9, 3.4987647797772484`*^9}, {3.4987662584793186`*^9, 
   3.498766258909319*^9}, {3.4987729599087005`*^9, 3.4987729607687016`*^9}, 
   3.4988018581019883`*^9, {3.499179579551774*^9, 3.4991796094414263`*^9}, {
   3.499179689157567*^9, 3.499179691637971*^9}, {3.4991797663621025`*^9, 
   3.499179767407304*^9}, {3.499179868308281*^9, 3.499179869805884*^9}, 
   3.499180259000168*^9, {3.499197395157969*^9, 3.499197401054779*^9}, {
   3.499212499112361*^9, 3.49921251269238*^9}, {3.499212715522664*^9, 
   3.4992127382126956`*^9}, {3.4992128038327875`*^9, 
   3.4992128061327906`*^9}, {3.499213982604438*^9, 3.499214025174497*^9}, {
   3.499214066304555*^9, 3.499214072114563*^9}, {3.4992145411652193`*^9, 
   3.4992145475152283`*^9}, 3.4993574899767523`*^9, {3.4993576909831047`*^9, 
   3.4993577157403483`*^9}, 3.4993578086385117`*^9, {3.4993579390391407`*^9, 
   3.4993579651067867`*^9}, {3.4993580774113836`*^9, 3.4993580785501857`*^9}, 
   3.499358991716386*^9, {3.4993590256364326`*^9, 3.499359034196445*^9}, 
   3.499359158156618*^9, {3.499359230066719*^9, 3.4993592406667337`*^9}, {
   3.499363855658249*^9, 3.499363864218261*^9}, {3.4993753165091624`*^9, 
   3.499375327739178*^9}, {3.500317979448513*^9, 3.500317979729314*^9}, {
   3.500318356413175*^9, 3.5003183706092*^9}, {3.500319044263768*^9, 
   3.5003190515337787`*^9}, {3.500321448217134*^9, 3.5003214542871428`*^9}, {
   3.500432003250804*^9, 3.5004320043278656`*^9}, {3.5010431659740324`*^9, 
   3.5010431675511227`*^9}, {3.5013560814295626`*^9, 
   3.5013561004895887`*^9}, {3.50135618678971*^9, 3.5013562181997538`*^9}, {
   3.5013562556298065`*^9, 3.5013562631598167`*^9}, {3.5013563481499357`*^9, 
   3.501356350129938*^9}, {3.5013563916299963`*^9, 3.501356393369999*^9}, 
   3.501356538350202*^9, {3.5013565824102635`*^9, 3.5013565889502726`*^9}, 
   3.502675840959628*^9, {3.5026759066297197`*^9, 3.502675919529738*^9}, {
   3.5026760125798683`*^9, 3.5026760334598975`*^9}, {3.5026762053901386`*^9, 
   3.5026762059201393`*^9}, {3.5026762389901853`*^9, 3.5026762460801954`*^9}, 
   3.5027656584730268`*^9, 3.5027671152479863`*^9, {3.5030718189880323`*^9, 
   3.5030718291780467`*^9}, 3.5038761961479836`*^9, {3.504156546965613*^9, 
   3.504156548322815*^9}, {3.5042968954456654`*^9, 3.5042969168056955`*^9}, {
   3.5051010426366124`*^9, 3.505101050326623*^9}, 3.5053446414337845`*^9, {
   3.5053446931938567`*^9, 3.505344715043887*^9}, 3.50535355708521*^9, {
   3.509473076633647*^9, 3.509473117827003*^9}, 3.509473221522934*^9, {
   3.5094732830534534`*^9, 3.509473292318983*^9}, {3.5094751195374947`*^9, 
   3.5094751247597933`*^9}, 3.5095546021524253`*^9, {3.5095604705070734`*^9, 
   3.5095604739670787`*^9}, 3.509901170672567*^9, 3.509901379052859*^9, 
   3.5101726030676427`*^9, {3.5101726631121483`*^9, 3.510172663673749*^9}, {
   3.510172826725236*^9, 3.5101728304380417`*^9}, {3.510173018449572*^9, 
   3.5101730407264113`*^9}, {3.5101733867038193`*^9, 3.510173418621475*^9}, 
   3.5101793621427617`*^9, 3.5105917427974453`*^9, 3.5105925522585783`*^9, {
   3.510784548740075*^9, 3.5107845520472813`*^9}, {3.512185343432107*^9, 
   3.51218534510131*^9}, 3.5132775498937836`*^9, 3.5132797211568236`*^9, {
   3.513293763758853*^9, 3.5132937639588537`*^9}, {3.5137081594015365`*^9, 
   3.5137081716475577`*^9}, 3.516820845796727*^9, 3.516823738634153*^9, 
   3.5410891972939157`*^9, 3.541089288382476*^9, 3.5410897398596687`*^9, {
   3.5455833278623123`*^9, 3.545583327872312*^9}, 3.5455860323901005`*^9, 
   3.5468187108906465`*^9, {3.546818823830805*^9, 3.5468188431208315`*^9}, {
   3.546819028701092*^9, 3.546819106981201*^9}, 3.5468197339420786`*^9, {
   3.546820032802497*^9, 3.5468200417225094`*^9}, {3.5468202594928145`*^9, 
   3.5468202637428207`*^9}, {3.546820484153129*^9, 3.546820484163129*^9}, 
   3.5468216768647985`*^9, {3.5468259196807384`*^9, 3.5468259409107685`*^9}, {
   3.5468266116017075`*^9, 3.5468266206817203`*^9}, 3.5481743238848276`*^9, 
   3.5481755729006195`*^9, 3.563043836907744*^9, {3.5838057151377*^9, 
   3.5838057154377003`*^9}, {3.597004501639829*^9, 3.5970045646399174`*^9}, {
   3.606353116332897*^9, 3.6063531773829823`*^9}, 3.606353322123185*^9, 
   3.6063534601333785`*^9, 3.606353886423975*^9, 3.606353965074085*^9, 
   3.606405803184204*^9, 3.6064065850052986`*^9, {3.6064068107956142`*^9, 
   3.606406847015665*^9}, 3.6069297091773367`*^9, 3.6069297862674446`*^9, 
   3.606929845187527*^9, {3.606929877377572*^9, 3.606929878177573*^9}, 
   3.6079892691782894`*^9, 3.6079893744784365`*^9, {3.6092102437399592`*^9, 
   3.60921025139997*^9}, 3.6092103025100417`*^9, {3.609215145728823*^9, 
   3.6092151462588243`*^9}, {3.6092151947688923`*^9, 
   3.6092152257889357`*^9}, {3.609215420069207*^9, 3.609215488289303*^9}, {
   3.6100497035977945`*^9, 3.6100497099878035`*^9}, 3.610077731690462*^9, 
   3.6101603921959934`*^9, {3.6237921937210565`*^9, 3.6237921954838595`*^9}, {
   3.623792341508917*^9, 3.623792342990919*^9}, 3.6237924668941374`*^9, 
   3.6237925448022738`*^9, 3.6238608439638786`*^9, {3.623873042493814*^9, 
   3.623873048213822*^9}, {3.6238788588991795`*^9, 3.623878859839181*^9}, {
   3.6240417928592124`*^9, 3.6240418329432697`*^9}, {3.6240419573226357`*^9, 
   3.6240419613626413`*^9}, {3.6240423756452312`*^9, 
   3.6240423814152393`*^9}, {3.6240424236773*^9, 3.6240424374813194`*^9}, 
   3.6240433257147713`*^9, {3.6240447191031227`*^9, 3.6240447511291676`*^9}, 
   3.624044966439472*^9, 3.6240463303125954`*^9, 3.6240463878626766`*^9, 
   3.6240550702685723`*^9, 3.6240562857622743`*^9, 3.624056326642331*^9, 
   3.6240565239226074`*^9, {3.624056676872822*^9, 3.624056678442824*^9}, {
   3.625263055995204*^9, 3.6252631040852714`*^9}, {3.625264148942871*^9, 
   3.6252641564028816`*^9}, 3.6260234558949533`*^9, {3.6262105080070486`*^9, 
   3.626210508194249*^9}, {3.626228844330903*^9, 3.626228851810913*^9}, {
   3.6262288871849637`*^9, 3.626228891134969*^9}, {3.6262289431730433`*^9, 
   3.6262289936631145`*^9}, 3.626229027722163*^9, {3.6262294227229013`*^9, 
   3.626229449349942*^9}, {3.626229479791985*^9, 3.6262295427240734`*^9}, 
   3.6301674943888245`*^9, {3.6301681985316114`*^9, 3.6301682142916393`*^9}, {
   3.6301682582711167`*^9, 3.630168266509931*^9}, {3.630168326653037*^9, 
   3.6301683278854394`*^9}, 3.630169252033408*^9, {3.630169454973966*^9, 
   3.6301694745228004`*^9}, {3.6301716487789836`*^9, 
   3.6301716589346013`*^9}, {3.6301717832144203`*^9, 3.6301717832300205`*^9}, 
   3.6642967937276297`*^9, {3.664297474485566*^9, 3.664297479190836*^9}, {
   3.6642975360590887`*^9, 3.6642975403413334`*^9}, {3.664298453219547*^9, 
   3.6642984542136035`*^9}, {3.6642991404418535`*^9, 3.664299142961998*^9}, {
   3.7047423935594163`*^9, 3.704742398726712*^9}},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"g_.", "*", 
        RowBox[{"tan", "[", 
         RowBox[{"e_.", "+", 
          RowBox[{"f_.", "*", "x_"}]}], "]"}]}], ")"}], "^", "p_"}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_.", "+", 
        RowBox[{"b_.", "*", 
         RowBox[{"cot", "[", 
          RowBox[{"e_.", "+", 
           RowBox[{"f_.", "*", "x_"}]}], "]"}]}]}], ")"}], "^", "m_."}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"c_", "+", 
        RowBox[{"d_.", "*", 
         RowBox[{"cot", "[", 
          RowBox[{"e_.", "+", 
           RowBox[{"f_.", "*", "x_"}]}], "]"}]}]}], ")"}], "^", "n_."}]}], 
    ",", "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{"g", "^", 
     RowBox[{"(", 
      RowBox[{"m", "+", "n"}], ")"}]}], "*", 
    RowBox[{"Int", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"g", "*", 
          RowBox[{"Tan", "[", 
           RowBox[{"e", "+", 
            RowBox[{"f", "*", "x"}]}], "]"}]}], ")"}], "^", 
        RowBox[{"(", 
         RowBox[{"p", "-", "m", "-", "n"}], ")"}]}], "*", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"b", "+", 
          RowBox[{"a", "*", 
           RowBox[{"Tan", "[", 
            RowBox[{"e", "+", 
             RowBox[{"f", "*", "x"}]}], "]"}]}]}], ")"}], "^", "m"}], "*", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"d", "+", 
          RowBox[{"c", "*", 
           RowBox[{"Tan", "[", 
            RowBox[{"e", "+", 
             RowBox[{"f", "*", "x"}]}], "]"}]}]}], ")"}], "^", "n"}]}], ",", 
      "x"}], "]"}]}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "f", ",", "g", ",", 
        "p"}], "}"}], ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"Not", "[", 
     RowBox[{"IntegerQ", "[", "p", "]"}], "]"}], " ", "&&", " ", 
    RowBox[{"IntegerQ", "[", "m", "]"}], " ", "&&", " ", 
    RowBox[{"IntegerQ", "[", "n", "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9, 
   3.4976395861674376`*^9, 3.4976397432129135`*^9, 3.4976633737510133`*^9, 
   3.497663791067346*^9, 3.497664242469739*^9, {3.49766439658241*^9, 
   3.497664398470013*^9}, 3.497664769079864*^9, {3.4986774515679674`*^9, 
   3.49867746046798*^9}, {3.498761171092196*^9, 3.4987611711021957`*^9}, {
   3.4987647642072268`*^9, 3.4987647797772484`*^9}, {3.4987662584793186`*^9, 
   3.498766258909319*^9}, {3.4987729599087005`*^9, 3.4987729607687016`*^9}, 
   3.4988018581019883`*^9, {3.499179579551774*^9, 3.4991796094414263`*^9}, {
   3.499179689157567*^9, 3.499179691637971*^9}, {3.4991797663621025`*^9, 
   3.499179767407304*^9}, {3.499179868308281*^9, 3.499179869805884*^9}, 
   3.499180259000168*^9, {3.499197395157969*^9, 3.499197401054779*^9}, {
   3.499212499112361*^9, 3.49921251269238*^9}, {3.499212715522664*^9, 
   3.4992127382126956`*^9}, {3.4992128038327875`*^9, 
   3.4992128061327906`*^9}, {3.499213982604438*^9, 3.499214025174497*^9}, {
   3.499214066304555*^9, 3.499214072114563*^9}, {3.4992145411652193`*^9, 
   3.4992145475152283`*^9}, 3.4993574899767523`*^9, {3.4993576909831047`*^9, 
   3.4993577157403483`*^9}, 3.4993578086385117`*^9, {3.4993579390391407`*^9, 
   3.4993579651067867`*^9}, {3.4993580774113836`*^9, 3.4993580785501857`*^9}, 
   3.499358991716386*^9, {3.4993590256364326`*^9, 3.499359034196445*^9}, 
   3.499359158156618*^9, {3.499359230066719*^9, 3.4993592406667337`*^9}, {
   3.499363855658249*^9, 3.499363864218261*^9}, {3.4993753165091624`*^9, 
   3.499375327739178*^9}, {3.500317979448513*^9, 3.500317979729314*^9}, {
   3.500318356413175*^9, 3.5003183706092*^9}, {3.500319044263768*^9, 
   3.5003190515337787`*^9}, {3.500321448217134*^9, 3.5003214542871428`*^9}, {
   3.500432003250804*^9, 3.5004320043278656`*^9}, {3.5010431659740324`*^9, 
   3.5010431675511227`*^9}, {3.5013560814295626`*^9, 
   3.5013561004895887`*^9}, {3.50135618678971*^9, 3.5013562181997538`*^9}, {
   3.5013562556298065`*^9, 3.5013562631598167`*^9}, {3.5013563481499357`*^9, 
   3.501356350129938*^9}, {3.5013563916299963`*^9, 3.501356393369999*^9}, 
   3.501356538350202*^9, {3.5013565824102635`*^9, 3.5013565889502726`*^9}, 
   3.502675840959628*^9, {3.5026759066297197`*^9, 3.502675919529738*^9}, {
   3.5026760125798683`*^9, 3.5026760334598975`*^9}, {3.5026762053901386`*^9, 
   3.5026762059201393`*^9}, {3.5026762389901853`*^9, 3.5026762460801954`*^9}, 
   3.5027656584730268`*^9, 3.5027671152479863`*^9, {3.5030718189880323`*^9, 
   3.5030718291780467`*^9}, 3.5038761961479836`*^9, {3.504156546965613*^9, 
   3.504156548322815*^9}, {3.5042968954456654`*^9, 3.5042969168056955`*^9}, {
   3.5051010426366124`*^9, 3.505101050326623*^9}, 3.5053446414337845`*^9, {
   3.5053446931938567`*^9, 3.505344715043887*^9}, 3.50535355708521*^9, {
   3.509473076633647*^9, 3.509473117827003*^9}, 3.509473221522934*^9, {
   3.5094732830534534`*^9, 3.509473292318983*^9}, {3.5094751195374947`*^9, 
   3.5094751247597933`*^9}, 3.5095546021524253`*^9, {3.5095604705070734`*^9, 
   3.5095604739670787`*^9}, 3.509901170672567*^9, 3.509901379052859*^9, 
   3.5101726030676427`*^9, {3.5101726631121483`*^9, 3.510172663673749*^9}, {
   3.510172826725236*^9, 3.5101728304380417`*^9}, {3.510173018449572*^9, 
   3.5101730407264113`*^9}, {3.5101733867038193`*^9, 3.510173418621475*^9}, 
   3.5101793621427617`*^9, 3.5105917427974453`*^9, 3.5105925522585783`*^9, {
   3.510784548740075*^9, 3.5107845520472813`*^9}, {3.512185343432107*^9, 
   3.51218534510131*^9}, 3.5132775498937836`*^9, 3.5132797211568236`*^9, {
   3.513293763758853*^9, 3.5132937639588537`*^9}, {3.5137081594015365`*^9, 
   3.5137081716475577`*^9}, 3.516820845796727*^9, 3.516823738634153*^9, 
   3.5410891972939157`*^9, 3.541089288382476*^9, 3.5410897398596687`*^9, {
   3.5455833278623123`*^9, 3.545583327872312*^9}, 3.5455860323901005`*^9, 
   3.5468187108906465`*^9, {3.546818823830805*^9, 3.5468188431208315`*^9}, {
   3.546819028701092*^9, 3.546819106981201*^9}, 3.5468197339420786`*^9, {
   3.546820032802497*^9, 3.5468200417225094`*^9}, {3.5468202594928145`*^9, 
   3.5468202637428207`*^9}, {3.546820484153129*^9, 3.546820484163129*^9}, 
   3.5468216768647985`*^9, {3.5468259196807384`*^9, 3.5468259409107685`*^9}, {
   3.5468266116017075`*^9, 3.5468266206817203`*^9}, 3.5481743238848276`*^9, 
   3.5481755729006195`*^9, 3.563043836907744*^9, {3.5838057151377*^9, 
   3.5838057154377003`*^9}, {3.597004501639829*^9, 3.5970045646399174`*^9}, {
   3.606353116332897*^9, 3.6063531773829823`*^9}, 3.606353322123185*^9, 
   3.6063534601333785`*^9, 3.606353886423975*^9, 3.606353965074085*^9, 
   3.606405803184204*^9, 3.6064065850052986`*^9, {3.6064068107956142`*^9, 
   3.606406847015665*^9}, 3.6069297091773367`*^9, 3.6069297862674446`*^9, 
   3.606929845187527*^9, {3.606929877377572*^9, 3.606929878177573*^9}, 
   3.6079892691782894`*^9, 3.6079893744784365`*^9, {3.6092102437399592`*^9, 
   3.60921025139997*^9}, 3.6092103025100417`*^9, {3.609215145728823*^9, 
   3.6092151462588243`*^9}, {3.6092151947688923`*^9, 
   3.6092152257889357`*^9}, {3.609215420069207*^9, 3.609215488289303*^9}, {
   3.6100497035977945`*^9, 3.6100497099878035`*^9}, 3.610077731690462*^9, 
   3.6101603921959934`*^9, {3.6237921937210565`*^9, 3.6237921954838595`*^9}, {
   3.623792341508917*^9, 3.623792342990919*^9}, 3.6237924668941374`*^9, 
   3.6237925448022738`*^9, 3.6238608439638786`*^9, {3.623873042493814*^9, 
   3.623873048213822*^9}, {3.6238788588991795`*^9, 3.623878859839181*^9}, {
   3.6240417928592124`*^9, 3.6240418329432697`*^9}, {3.6240419573226357`*^9, 
   3.6240419613626413`*^9}, {3.6240423756452312`*^9, 
   3.6240423814152393`*^9}, {3.6240424236773*^9, 3.6240424374813194`*^9}, 
   3.6240433257147713`*^9, {3.6240447191031227`*^9, 3.6240447511291676`*^9}, 
   3.624044966439472*^9, 3.6240463303125954`*^9, 3.6240463878626766`*^9, 
   3.6240550702685723`*^9, 3.6240562857622743`*^9, 3.624056326642331*^9, 
   3.6240565239226074`*^9, {3.624056676872822*^9, 3.624056678442824*^9}, {
   3.625263055995204*^9, 3.6252631040852714`*^9}, {3.625264148942871*^9, 
   3.6252641564028816`*^9}, 3.6260234558949533`*^9, {3.6262105080070486`*^9, 
   3.626210508194249*^9}, {3.626228844330903*^9, 3.626228851810913*^9}, {
   3.6262288871849637`*^9, 3.626228891134969*^9}, {3.6262289431730433`*^9, 
   3.6262289936631145`*^9}, 3.626229027722163*^9, {3.6262294227229013`*^9, 
   3.626229449349942*^9}, {3.626229479791985*^9, 3.6262294939640045`*^9}, {
   3.6301674794243984`*^9, 3.6301674874000125`*^9}, {3.630168177986375*^9, 
   3.6301682111560335`*^9}, 3.630168252764307*^9, {3.630168313938015*^9, 
   3.630168321598628*^9}, 3.630169244342594*^9, {3.6301694227091093`*^9, 
   3.6301694355323315`*^9}, {3.6301716212243166`*^9, 3.63017163695296*^9}, {
   3.6301717495621605`*^9, 3.6301717495777607`*^9}, 3.6642967898454075`*^9, {
   3.664297483616089*^9, 3.6642974881043453`*^9}, {3.6642975268415613`*^9, 
   3.6642975315728316`*^9}, {3.664298457191774*^9, 3.6642984579648185`*^9}, {
   3.664299152771559*^9, 3.664299155042689*^9}, {3.704742404150022*^9, 
   3.7047424070911903`*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{Cell[TextData[StyleBox["2:",
   FontFamily->"Arial",
   FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"g", " ", 
       SuperscriptBox[
        RowBox[{"Tan", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}], "q"]}], ")"}], "p"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"Tan", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}], "m"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"c", "+", 
       RowBox[{"d", " ", 
        RowBox[{"Tan", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}], "n"], 
    RowBox[{"\[DifferentialD]", "x"}], "  ", 
    StyleBox["when",
     FontFamily->"Arial",
     FontWeight->"Plain"], 
    StyleBox["  ",
     FontFamily->"Arial",
     FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
     RowBox[{
      RowBox[{"p", "\[NotElement]", "\[DoubleStruckCapitalZ]"}], " ", 
      "\[And]", " ", 
      RowBox[{"\[Not]", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"m", "\[Element]", "\[DoubleStruckCapitalZ]"}], " ", 
         "\[And]", " ", 
         RowBox[{"n", "\[Element]", "\[DoubleStruckCapitalZ]"}]}], 
        ")"}]}]}]]]], "None"]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9, 
   3.4965117206885777`*^9, 3.5192471175756674`*^9, {3.5192587973599553`*^9, 
   3.5192588081399703`*^9}, {3.519321495105319*^9, 3.5193214991925263`*^9}, 
   3.5193247857072587`*^9, {3.5194051897010813`*^9, 3.5194051902791147`*^9}, {
   3.5194055551249824`*^9, 3.5194055708408813`*^9}, {3.519405711316916*^9, 
   3.51940572904193*^9}, {3.519410772192028*^9, 3.5194107776364374`*^9}, {
   3.519413782484516*^9, 3.519413782827717*^9}, {3.519767588664174*^9, 
   3.519767611128214*^9}, {3.5197937941314034`*^9, 3.519793794568204*^9}, {
   3.5197947626591043`*^9, 3.519794764749508*^9}, {3.519794865354085*^9, 
   3.519794874355301*^9}, {3.523218063086026*^9, 3.523218070356036*^9}, {
   3.523316514684347*^9, 3.523316514684347*^9}, {3.5233165475343933`*^9, 
   3.5233165475343933`*^9}, {3.5233184331871357`*^9, 
   3.5233184334271364`*^9}, {3.5273599103435545`*^9, 3.527359910608755*^9}, {
   3.5326424241029196`*^9, 3.53264242435292*^9}, {3.5326584126048727`*^9, 
   3.532658412794873*^9}, {3.532726454021428*^9, 3.5327264542814283`*^9}, {
   3.5327554047263184`*^9, 3.532755404993334*^9}, {3.532798666112293*^9, 
   3.532798676322307*^9}, {3.5328778343810363`*^9, 3.5328778343810363`*^9}, 
   3.5330758294771795`*^9, {3.5330827570868783`*^9, 3.533082757336879*^9}, {
   3.534975097668671*^9, 3.534975097888672*^9}, {3.536863459221404*^9, 
   3.536863459439804*^9}, {3.540264711953947*^9, 3.5402647253239655`*^9}, {
   3.540264783504047*^9, 3.540264783504047*^9}, {3.540502117527218*^9, 
   3.540502117997218*^9}, {3.540502551737826*^9, 3.540502551937826*^9}, {
   3.5449015667548094`*^9, 3.5449015920048447`*^9}, {3.544901714065016*^9, 
   3.544901727955035*^9}, 3.5449017981251335`*^9, 3.546020159503343*^9, 
   3.5460203600136237`*^9, {3.5460310752738647`*^9, 3.546031077643868*^9}, {
   3.546031126313936*^9, 3.5460311265239363`*^9}, 3.546801688439275*^9, {
   3.546801866581126*^9, 3.5468018676511273`*^9}, {3.546802184066374*^9, 
   3.5468021843363743`*^9}, 3.5468025388912745`*^9, {3.5468028870629654`*^9, 
   3.546802888792968*^9}, {3.5468203931730013`*^9, 3.5468204595030947`*^9}, 
   3.5468206697133884`*^9, {3.5468209271537495`*^9, 3.5468209271537495`*^9}, {
   3.546822281335645*^9, 3.5468222849556503`*^9}, 3.5468235641274414`*^9, 
   3.5468258137805905`*^9, {3.5468258607206564`*^9, 3.5468258632806597`*^9}, {
   3.546826290091257*^9, 3.5468262923612604`*^9}, {3.546826571041651*^9, 
   3.546826574901656*^9}, {3.548171489157048*^9, 3.548171502463872*^9}, {
   3.548175565334606*^9, 3.548175565334606*^9}, {3.578589249409753*^9, 
   3.578589249619754*^9}, 3.5838055360974493`*^9, 3.583805660727624*^9, {
   3.583805707247689*^9, 3.583805707247689*^9}, 3.5970044709597864`*^9, {
   3.606352540822091*^9, 3.6063525564621134`*^9}, {3.60635274711238*^9, 
   3.606352749722384*^9}, {3.6063536116035905`*^9, 3.606353629223615*^9}, {
   3.6064061585847015`*^9, 3.606406160984705*^9}, {3.6064066957654533`*^9, 
   3.6064067278354983`*^9}, {3.606406798225597*^9, 3.606406798225597*^9}, 
   3.6064170699399776`*^9, {3.6064171476100864`*^9, 3.6064171540000954`*^9}, 
   3.6065877185111747`*^9, {3.6069296822972994`*^9, 3.606929694987317*^9}, {
   3.609209703619203*^9, 3.6092097324392433`*^9}, {3.6092098217793684`*^9, 
   3.609209849339407*^9}, 3.60921000847963*^9, {3.609210214839919*^9, 
   3.609210217029922*^9}, {3.6092104297202196`*^9, 3.6092104310802217`*^9}, {
   3.609215060718704*^9, 3.609215076928727*^9}, {3.6100494427274294`*^9, 
   3.610049463297458*^9}, 3.610070551558385*^9, {3.6100707471686587`*^9, 
   3.6100707473786592`*^9}, {3.610160342665924*^9, 3.6101603759759707`*^9}, {
   3.623792179959832*^9, 3.623792179959832*^9}, {3.623792338932912*^9, 
   3.623792338932912*^9}, {3.6237925174078255`*^9, 3.6237925174078255`*^9}, {
   3.623858885271776*^9, 3.623858885531777*^9}, {3.623860762659764*^9, 
   3.6238607846737957`*^9}, {3.623878845749161*^9, 3.6238788465391617`*^9}, 
   3.623879012967399*^9, {3.6240408571396933`*^9, 3.6240408912507415`*^9}, {
   3.6240421282418795`*^9, 3.6240421412318974`*^9}, {3.624042251850055*^9, 
   3.6240422661670756`*^9}, {3.6240433071157446`*^9, 
   3.6240433071157446`*^9}, {3.624044579520734*^9, 3.6240446068187723`*^9}, {
   3.6240461060662766`*^9, 3.6240461060662766`*^9}, {3.624046386622675*^9, 
   3.624046386622675*^9}, {3.624056237432206*^9, 3.624056237432206*^9}, {
   3.6240567038928595`*^9, 3.624056704622861*^9}, {3.6252629362370358`*^9, 
   3.6252629723270864`*^9}, {3.626023449826543*^9, 3.626023461932164*^9}, {
   3.626042362326043*^9, 3.6260423626460433`*^9}, {3.626209498235474*^9, 
   3.626209499405476*^9}, {3.626210483325805*^9, 3.626210484963808*^9}, {
   3.62621583070361*^9, 3.6262158326068134`*^9}, {3.6262286142615786`*^9, 
   3.6262286255555944`*^9}, {3.626228668370655*^9, 3.6262286745806637`*^9}, {
   3.6262287541917763`*^9, 3.626228754641777*^9}, {3.626228932402028*^9, 
   3.626228932602029*^9}, 3.6301688636059847`*^9, {3.6301691104969587`*^9, 
   3.630169121806978*^9}, 3.630171621255517*^9, {3.630171681634641*^9, 
   3.630171681634641*^9}, 3.6642974397975826`*^9, 3.664298238992294*^9, {
   3.6642984691954603`*^9, 3.664298469952504*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Piecewise constant extraction", "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, 3.4975761400971813`*^9, {3.4975778216221414`*^9, 
   3.497577829892153*^9}, {3.4975827089309845`*^9, 3.4975827138509912`*^9}, 
   3.497639710530856*^9, 3.4976397495153246`*^9, 3.4976637968549566`*^9, {
   3.497664121273126*^9, 3.4976641274819374`*^9}, {3.4976641823940334`*^9, 
   3.497664184390837*^9}, 3.497664250254153*^9, 3.497664775694276*^9, 
   3.4976649459685745`*^9, {3.49876308829488*^9, 3.4987630935048876`*^9}, {
   3.4987648355173264`*^9, 3.498764841027334*^9}, {3.4991797271436334`*^9, 
   3.4991797277208347`*^9}, {3.4992121758819084`*^9, 3.499212176211909*^9}, {
   3.4993573070196304`*^9, 3.4993573078152323`*^9}, 3.5013524902049417`*^9, 
   3.501621399618896*^9, 3.5016217326739454`*^9, 3.5016376139935837`*^9, 
   3.5016377276810865`*^9, {3.5017223219869995`*^9, 3.501722324888605*^9}, {
   3.501722470936061*^9, 3.501722471263662*^9}, {3.501722511371332*^9, 
   3.501722513914137*^9}, {3.5017225883886676`*^9, 3.501722594472678*^9}, {
   3.501722636046751*^9, 3.501722636405552*^9}, {3.501722673970418*^9, 
   3.5017227105524817`*^9}, {3.503880515951973*^9, 3.5038805176835756`*^9}, {
   3.5038805488524303`*^9, 3.5038805721276717`*^9}, {3.503881323994993*^9, 
   3.5038813546802473`*^9}, {3.5049162938617954`*^9, 
   3.5049163006634073`*^9}, {3.5049224814485416`*^9, 
   3.5049225441586294`*^9}, {3.504922716808871*^9, 3.5049227329788933`*^9}, {
   3.505866068185237*^9, 3.505866068655238*^9}, 3.5058664962858367`*^9, {
   3.509986401026863*^9, 3.5099864013768635`*^9}, 3.512064224502348*^9, 
   3.5130500758863173`*^9, {3.5132793432762947`*^9, 3.5132793434762945`*^9}, {
   3.5492317585537195`*^9, 3.5492317616448965`*^9}, 3.549232066084309*^9, {
   3.606352492622024*^9, 3.606352514622055*^9}, {3.606352688462298*^9, 
   3.606352701232316*^9}, {3.6063536390036287`*^9, 3.6063536393236294`*^9}, {
   3.6064061727847214`*^9, 3.606406173204722*^9}, {3.6069297155073457`*^9, 
   3.6069297188973503`*^9}, {3.6240409013007555`*^9, 3.624040906604764*^9}}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SubscriptBox["\[PartialD]", "x"], 
    FractionBox[
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"g", " ", 
        SuperscriptBox[
         RowBox[{"Tan", "[", 
          RowBox[{"e", "+", 
           RowBox[{"f", " ", "x"}]}], "]"}], "q"]}], ")"}], "p"], 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"g", " ", 
        RowBox[{"Tan", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], 
      RowBox[{"p", " ", "q"}]]]}], "\[Equal]", "0"}]],
  CellChangeTimes->{{3.625864789557844*^9, 3.62586479845186*^9}}]
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, 3.4975761400971813`*^9, {3.4975778216221414`*^9, 
   3.497577829892153*^9}, {3.4975827089309845`*^9, 3.4975827138509912`*^9}, 
   3.497639710530856*^9, 3.4976397495153246`*^9, 3.4976637968549566`*^9, {
   3.497664121273126*^9, 3.4976641274819374`*^9}, {3.4976641823940334`*^9, 
   3.497664184390837*^9}, 3.497664250254153*^9, 3.497664775694276*^9, 
   3.4976649459685745`*^9, {3.49876308829488*^9, 3.4987630935048876`*^9}, {
   3.4987648355173264`*^9, 3.498764841027334*^9}, {3.4991797271436334`*^9, 
   3.4991797277208347`*^9}, {3.4992121758819084`*^9, 3.499212176211909*^9}, {
   3.4993573070196304`*^9, 3.4993573078152323`*^9}, 3.5013524902049417`*^9, 
   3.501621399618896*^9, 3.5016217326739454`*^9, 3.5016376139935837`*^9, 
   3.5016377276810865`*^9, {3.5017223219869995`*^9, 3.501722324888605*^9}, {
   3.5017224385660048`*^9, 3.5017224419824104`*^9}, 3.5017229574385157`*^9, 
   3.501723447987378*^9, {3.504905059830614*^9, 3.5049051008006716`*^9}, {
   3.5049062442122726`*^9, 3.5049062459122753`*^9}, 3.505345087554409*^9, 
   3.5120642138723326`*^9, {3.513276979592985*^9, 3.513276981292988*^9}, {
   3.5147754897687864`*^9, 3.5147754924207907`*^9}, {3.515187407180027*^9, 
   3.5151874102100315`*^9}, {3.545590336281943*^9, 3.5455903388632736`*^9}, {
   3.5455906008904057`*^9, 3.5455906214425817`*^9}, 3.5455907444744587`*^9, {
   3.548010309860705*^9, 3.548010310300705*^9}, {3.5626982347696896`*^9, 
   3.562698261769727*^9}, {3.5628949392241716`*^9, 3.562894981494912*^9}, {
   3.562895314913802*^9, 3.5628953351742573`*^9}, {3.562895507736417*^9, 
   3.562895508381418*^9}, {3.5629037592168274`*^9, 3.5629037911968837`*^9}, {
   3.5629038611006064`*^9, 3.5629038618026075`*^9}, {3.562904019238084*^9, 
   3.562904036086114*^9}, {3.5629045525718207`*^9, 3.5629045755662613`*^9}, {
   3.5629047089464955`*^9, 3.562904731644535*^9}, {3.5629048716547813`*^9, 
   3.5629048723879824`*^9}, {3.562905098245179*^9, 3.5629051055771923`*^9}, {
   3.5629058333028708`*^9, 3.5629058484348965`*^9}, {3.56290595289268*^9, 
   3.562905978133525*^9}, {3.562906010721982*^9, 3.5629060644952765`*^9}, {
   3.562906192992702*^9, 3.5629062107299333`*^9}, {3.562906315374917*^9, 
   3.5629063354833527`*^9}, {3.6059232430077085`*^9, 
   3.6059232556277266`*^9}, {3.6059243828393044`*^9, 3.6059243828393044`*^9}, 
   3.6080778225408897`*^9, {3.6258647702878103`*^9, 3.625864805596672*^9}, {
   3.626978690237172*^9, 3.6269786927331767`*^9}, {3.626978880666707*^9, 
   3.6269788987931395`*^9}, {3.626978975484874*^9, 3.626978975484874*^9}, {
   3.626979756004244*^9, 3.626979756004244*^9}, {3.6284720112348676`*^9, 
   3.6284720112348676`*^9}, {3.6642415960526824`*^9, 
   3.6642415960526824`*^9}, {3.66429829016022*^9, 3.6642983007198243`*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"p", "\[NotElement]", "\[DoubleStruckCapitalZ]"}], " ", "\[And]", 
   " ", 
   RowBox[{"\[Not]", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"m", "\[Element]", "\[DoubleStruckCapitalZ]"}], " ", "\[And]", 
      " ", 
      RowBox[{"n", "\[Element]", "\[DoubleStruckCapitalZ]"}]}], ")"}]}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9, 
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, {
   3.4976638984111347`*^9, 3.4976639153215647`*^9}, {3.4976645939383564`*^9, 
   3.497664598805565*^9}, {3.4976646480080514`*^9, 3.4976646992229414`*^9}, {
   3.4976647966763124`*^9, 3.497664832415975*^9}, 3.497664903037299*^9, {
   3.4986779242986293`*^9, 3.498677947778662*^9}, {3.499179738750054*^9, 
   3.499179740902858*^9}, {3.499213316063504*^9, 3.4992133345435305`*^9}, {
   3.499358051967739*^9, 3.4993580717017736`*^9}, {3.4993592718267775`*^9, 
   3.4993592794067883`*^9}, {3.499363873578274*^9, 3.4993638796182823`*^9}, {
   3.50031965968463*^9, 3.5003196639146357`*^9}, {3.5004320083900976`*^9, 
   3.5004320093321514`*^9}, {3.5013559257793446`*^9, 
   3.5013559257793446`*^9}, {3.5013564069000177`*^9, 3.501356418530034*^9}, {
   3.5026761650200815`*^9, 3.5026762017401333`*^9}, {3.5026762588802133`*^9, 
   3.5026762588802133`*^9}, {3.5026784726933126`*^9, 
   3.5026784726933126`*^9}, {3.5027658552205725`*^9, 
   3.5027658552205725`*^9}, {3.5027672224669743`*^9, 
   3.5027672224669743`*^9}, {3.504028644986937*^9, 3.5040286460633388`*^9}, 
   3.504031871520604*^9, {3.5042969469757376`*^9, 3.504296966725765*^9}, 
   3.5043107598680983`*^9, {3.504747625602626*^9, 3.5047476267926273`*^9}, {
   3.5051010704066515`*^9, 3.505101092536682*^9}, {3.5094730728464303`*^9, 
   3.5094730728464303`*^9}, {3.5095545822823973`*^9, 
   3.5095545998824224`*^9}, {3.5101727293810644`*^9, 
   3.5101727293810644`*^9}, {3.5101793585079556`*^9, 
   3.5101793589291563`*^9}, {3.5117212591249695`*^9, 
   3.5117212591249695`*^9}, {3.5121869358089046`*^9, 3.512186937088107*^9}, 
   3.5132794143763943`*^9, {3.5132798091269464`*^9, 3.5132798091269464`*^9}, {
   3.5132937204487925`*^9, 3.51329373291881*^9}, {3.513708063040167*^9, 
   3.513708085831807*^9}, {3.546818725320667*^9, 3.5468187253306665`*^9}, {
   3.546818923110944*^9, 3.546818923110944*^9}, {3.5468198049321785`*^9, 
   3.5468198049321785`*^9}, {3.546819845442235*^9, 3.546819845442235*^9}, {
   3.546820459793095*^9, 3.546820459793095*^9}, {3.546822301565674*^9, 
   3.546822301565674*^9}, {3.5468259256607475`*^9, 3.54682592784075*^9}, {
   3.5468266085117035`*^9, 3.5468266085117035`*^9}, {3.5481755690318127`*^9, 
   3.5481755690318127`*^9}, {3.563043358927075*^9, 3.563043359127075*^9}, {
   3.583805726657716*^9, 3.583805726657716*^9}, {3.60635276855241*^9, 
   3.60635276855241*^9}, {3.6063536490736427`*^9, 3.6063536490736427`*^9}, {
   3.60640686451569*^9, 3.6064068645256896`*^9}, {3.6069297715874243`*^9, 
   3.6069297719374247`*^9}, {3.610049465317461*^9, 3.610049465317461*^9}, {
   3.6101603846659827`*^9, 3.6101603846659827`*^9}, {3.623792190803851*^9, 
   3.623792190803851*^9}, {3.6237923394789133`*^9, 3.6237923394789133`*^9}, {
   3.6237925181254272`*^9, 3.6237925181254272`*^9}, {3.623860820813846*^9, 
   3.623860820813846*^9}, {3.6238788505491676`*^9, 3.6238788514091687`*^9}, {
   3.6240409126547723`*^9, 3.6240409126547723`*^9}, {3.624042275470089*^9, 
   3.624042275470089*^9}, {3.624043307805746*^9, 3.624043307805746*^9}, {
   3.624044615993786*^9, 3.624044622093794*^9}, {3.6240461067262774`*^9, 
   3.6240461067262774`*^9}, {3.624046387342676*^9, 3.624046387342676*^9}, {
   3.6240562380922074`*^9, 3.6240562380922074`*^9}, {3.624056700242854*^9, 
   3.624056700482855*^9}, {3.6260234527125473`*^9, 3.6260234527125473`*^9}, {
   3.6262094883450565`*^9, 3.6262095054134865`*^9}, {3.6262286517806315`*^9, 
   3.6262286517806315`*^9}, {3.630169107796154*^9, 3.630169107796154*^9}, {
   3.6642984738227253`*^9, 3.664298474655773*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"g", " ", 
      SuperscriptBox[
       RowBox[{"Tan", "[", 
        RowBox[{"e", "+", 
         RowBox[{"f", " ", "x"}]}], "]"}], "q"]}], ")"}], "p"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       RowBox[{"Tan", "[", 
        RowBox[{"e", "+", 
         RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}], "m"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"c", "+", 
      RowBox[{"d", " ", 
       RowBox[{"Tan", "[", 
        RowBox[{"e", "+", 
         RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}], "n"], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
     FractionBox[
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"g", " ", 
         SuperscriptBox[
          RowBox[{"Tan", "[", 
           RowBox[{"e", "+", 
            RowBox[{"f", " ", "x"}]}], "]"}], "q"]}], ")"}], "p"], 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"g", " ", 
         RowBox[{"Tan", "[", 
          RowBox[{"e", "+", 
           RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], 
       RowBox[{"p", " ", "q"}]]]}]}], 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"g", " ", 
        RowBox[{"Tan", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], 
      RowBox[{"p", " ", "q"}]], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         RowBox[{"Tan", "[", 
          RowBox[{"e", "+", 
           RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}], "m"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"c", "+", 
        RowBox[{"d", " ", 
         RowBox[{"Tan", "[", 
          RowBox[{"e", "+", 
           RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}], "n"], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9, 
   3.4975777938921027`*^9}, 3.49763959300025*^9, 3.497639634480723*^9, 
   3.4976398417426867`*^9, {3.49766381031778*^9, 3.4976638350282235`*^9}, {
   3.49766435104593*^9, 3.497664390373599*^9}, {3.4976647278489914`*^9, 
   3.4976647419046164`*^9}, {3.497664869980841*^9, 3.497664887437272*^9}, {
   3.498761171082196*^9, 3.498761171082196*^9}, {3.4987645684369526`*^9, 
   3.4987646442070584`*^9}, {3.49883740188522*^9, 3.4988375207310295`*^9}, {
   3.498837939529365*^9, 3.498837958467798*^9}, 3.498875518717125*^9, {
   3.4991794250335026`*^9, 3.499179452879552*^9}, {3.4991796787211485`*^9, 
   3.499179681529153*^9}, {3.4991961982482667`*^9, 3.4991962392763386`*^9}, {
   3.499196653100665*^9, 3.4991966955639396`*^9}, {3.499197135282312*^9, 
   3.499197176918785*^9}, {3.499197690444487*^9, 3.499197694048094*^9}, {
   3.499212356332161*^9, 3.4992123865622034`*^9}, {3.499212421412252*^9, 
   3.499212423032254*^9}, {3.4992126233625345`*^9, 3.499212696332637*^9}, {
   3.499357348905704*^9, 3.4993574380910606`*^9}, {3.4993588274861555`*^9, 
   3.4993589039462624`*^9}, {3.499359110096551*^9, 3.4993591137965565`*^9}, {
   3.4993752824791145`*^9, 3.4993752993591385`*^9}, {3.4994041904561324`*^9, 
   3.4994041927361355`*^9}, {3.499404246686211*^9, 3.499404275156251*^9}, {
   3.499404742476905*^9, 3.4994047525269194`*^9}, {3.500317978262911*^9, 
   3.500317979417313*^9}, 3.500318137887991*^9, {3.5013559487293763`*^9, 
   3.501355958849391*^9}, {3.502675715869453*^9, 3.502675816299594*^9}, {
   3.5026759394697657`*^9, 3.50267594261977*^9}, {3.5040325720154343`*^9, 
   3.5040325776782446`*^9}, 3.505344641413784*^9, {3.5053446931638565`*^9, 
   3.505344715023887*^9}, 3.5053535547652063`*^9, {3.509472692844695*^9, 
   3.509472735704147*^9}, {3.5094728451264057`*^9, 3.509472933684471*^9}, {
   3.5095546485624905`*^9, 3.5095548310727463`*^9}, {3.509554944782905*^9, 
   3.509554978772953*^9}, {3.5095550311130257`*^9, 3.5095550406230392`*^9}, {
   3.5095551029731264`*^9, 3.509555110183137*^9}, {3.509555148833191*^9, 
   3.50955518414324*^9}, 3.5095552442833242`*^9, 3.5095554618336287`*^9, {
   3.5101725287803125`*^9, 3.51017253319512*^9}, {3.5101728354144506`*^9, 
   3.5101728382380557`*^9}, {3.5101734308362966`*^9, 3.510173455141139*^9}, {
   3.5132794480664415`*^9, 3.513279496296509*^9}, {3.5132795860166345`*^9, 
   3.513279591746642*^9}, {3.515187356869957*^9, 3.5151873589599595`*^9}, 
   3.5159766074458284`*^9, {3.546818756820711*^9, 3.5468187568407106`*^9}, {
   3.546818904940918*^9, 3.5468189423109703`*^9}, {3.5468192801114435`*^9, 
   3.5468192801114435`*^9}, {3.5468199864024324`*^9, 
   3.5468199866424327`*^9}, {3.546820459803095*^9, 3.546820459803095*^9}, 
   3.5630438453177557`*^9, {3.5970044731397896`*^9, 3.5970044904398136`*^9}, {
   3.6063529231626267`*^9, 3.6063530349427834`*^9}, {3.606353751953787*^9, 
   3.606353806243863*^9}, {3.606406455375117*^9, 3.606406472875141*^9}, {
   3.606929726727361*^9, 3.606929756537403*^9}, {3.6079891453781157`*^9, 
   3.6079891523081255`*^9}, {3.6079892302082343`*^9, 3.6079892504482627`*^9}, 
   3.609210024919653*^9, {3.609210107949769*^9, 3.6092101442898197`*^9}, {
   3.6092101789598684`*^9, 3.6092101795998697`*^9}, {3.6092151104487743`*^9, 
   3.6092151271587973`*^9}, {3.609215326509076*^9, 3.609215372429141*^9}, {
   3.6100496956377835`*^9, 3.610049699307789*^9}, {3.623792191599453*^9, 
   3.6237921928162546`*^9}, {3.6237923399937143`*^9, 3.623792340477315*^9}, {
   3.623873008923767*^9, 3.6238730143637743`*^9}, 3.624040919480782*^9, {
   3.6240409563898344`*^9, 3.62404100930991*^9}, 3.624042229135022*^9, 
   3.624044685311075*^9, 3.625262980557098*^9, {3.6252630306971684`*^9, 
   3.6252630314471693`*^9}, 3.6252641433328633`*^9, {3.6262287840108185`*^9, 
   3.626228816600864*^9}, 3.6301688772268085`*^9, {3.630168923866826*^9, 
   3.6301689532296815`*^9}, {3.630171621255517*^9, 3.630171621271117*^9}, {
   3.6301716816502414`*^9, 3.6301716816814413`*^9}, {3.664298500234236*^9, 
   3.6642985429896812`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}, 3.60635396088408*^9, 3.6064065425552387`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"g_.", "*", 
        RowBox[{
         RowBox[{"tan", "[", 
          RowBox[{"e_.", "+", 
           RowBox[{"f_.", "*", "x_"}]}], "]"}], "^", "q_"}]}], ")"}], "^", 
      "p_"}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_.", "+", 
        RowBox[{"b_.", "*", 
         RowBox[{"tan", "[", 
          RowBox[{"e_.", "+", 
           RowBox[{"f_.", "*", "x_"}]}], "]"}]}]}], ")"}], "^", "m_."}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"c_", "+", 
        RowBox[{"d_.", "*", 
         RowBox[{"tan", "[", 
          RowBox[{"e_.", "+", 
           RowBox[{"f_.", "*", "x_"}]}], "]"}]}]}], ")"}], "^", "n_."}]}], 
    ",", "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"g", "*", 
        RowBox[{
         RowBox[{"Tan", "[", 
          RowBox[{"e", "+", 
           RowBox[{"f", "*", "x"}]}], "]"}], "^", "q"}]}], ")"}], "^", "p"}], 
     "/", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"g", "*", 
        RowBox[{"Tan", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", "*", "x"}]}], "]"}]}], ")"}], "^", 
      RowBox[{"(", 
       RowBox[{"p", "*", "q"}], ")"}]}]}], "*", 
    RowBox[{"Int", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"g", "*", 
          RowBox[{"Tan", "[", 
           RowBox[{"e", "+", 
            RowBox[{"f", "*", "x"}]}], "]"}]}], ")"}], "^", 
        RowBox[{"(", 
         RowBox[{"p", "*", "q"}], ")"}]}], "*", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"a", "+", 
          RowBox[{"b", "*", 
           RowBox[{"Tan", "[", 
            RowBox[{"e", "+", 
             RowBox[{"f", "*", "x"}]}], "]"}]}]}], ")"}], "^", "m"}], "*", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"c", "+", 
          RowBox[{"d", "*", 
           RowBox[{"Tan", "[", 
            RowBox[{"e", "+", 
             RowBox[{"f", "*", "x"}]}], "]"}]}]}], ")"}], "^", "n"}]}], ",", 
      "x"}], "]"}]}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "f", ",", "g", ",", 
        "m", ",", "n", ",", "p", ",", "q"}], "}"}], ",", "x"}], "]"}], " ", "&&",
     " ", 
    RowBox[{"Not", "[", 
     RowBox[{"IntegerQ", "[", "p", "]"}], "]"}], " ", "&&", " ", 
    RowBox[{"Not", "[", 
     RowBox[{
      RowBox[{"IntegerQ", "[", "m", "]"}], " ", "&&", " ", 
      RowBox[{"IntegerQ", "[", "n", "]"}]}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9, 
   3.4976395861674376`*^9, 3.4976397432129135`*^9, 3.4976633737510133`*^9, 
   3.497663791067346*^9, 3.497664242469739*^9, {3.49766439658241*^9, 
   3.497664398470013*^9}, 3.497664769079864*^9, {3.4986774515679674`*^9, 
   3.49867746046798*^9}, {3.498761171092196*^9, 3.4987611711021957`*^9}, {
   3.4987647642072268`*^9, 3.4987647797772484`*^9}, {3.4987662584793186`*^9, 
   3.498766258909319*^9}, {3.4987729599087005`*^9, 3.4987729607687016`*^9}, 
   3.4988018581019883`*^9, {3.499179579551774*^9, 3.4991796094414263`*^9}, {
   3.499179689157567*^9, 3.499179691637971*^9}, {3.4991797663621025`*^9, 
   3.499179767407304*^9}, {3.499179868308281*^9, 3.499179869805884*^9}, 
   3.499180259000168*^9, {3.499197395157969*^9, 3.499197401054779*^9}, {
   3.499212499112361*^9, 3.49921251269238*^9}, {3.499212715522664*^9, 
   3.4992127382126956`*^9}, {3.4992128038327875`*^9, 
   3.4992128061327906`*^9}, {3.499213982604438*^9, 3.499214025174497*^9}, {
   3.499214066304555*^9, 3.499214072114563*^9}, {3.4992145411652193`*^9, 
   3.4992145475152283`*^9}, 3.4993574899767523`*^9, {3.4993576909831047`*^9, 
   3.4993577157403483`*^9}, 3.4993578086385117`*^9, {3.4993579390391407`*^9, 
   3.4993579651067867`*^9}, {3.4993580774113836`*^9, 3.4993580785501857`*^9}, 
   3.499358991716386*^9, {3.4993590256364326`*^9, 3.499359034196445*^9}, 
   3.499359158156618*^9, {3.499359230066719*^9, 3.4993592406667337`*^9}, {
   3.499363855658249*^9, 3.499363864218261*^9}, {3.4993753165091624`*^9, 
   3.499375327739178*^9}, {3.500317979448513*^9, 3.500317979729314*^9}, {
   3.500318356413175*^9, 3.5003183706092*^9}, {3.500319044263768*^9, 
   3.5003190515337787`*^9}, {3.500321448217134*^9, 3.5003214542871428`*^9}, {
   3.500432003250804*^9, 3.5004320043278656`*^9}, {3.5010431659740324`*^9, 
   3.5010431675511227`*^9}, {3.5013560814295626`*^9, 
   3.5013561004895887`*^9}, {3.50135618678971*^9, 3.5013562181997538`*^9}, {
   3.5013562556298065`*^9, 3.5013562631598167`*^9}, {3.5013563481499357`*^9, 
   3.501356350129938*^9}, {3.5013563916299963`*^9, 3.501356393369999*^9}, 
   3.501356538350202*^9, {3.5013565824102635`*^9, 3.5013565889502726`*^9}, 
   3.502675840959628*^9, {3.5026759066297197`*^9, 3.502675919529738*^9}, {
   3.5026760125798683`*^9, 3.5026760334598975`*^9}, {3.5026762053901386`*^9, 
   3.5026762059201393`*^9}, {3.5026762389901853`*^9, 3.5026762460801954`*^9}, 
   3.5027656584730268`*^9, 3.5027671152479863`*^9, {3.5030718189880323`*^9, 
   3.5030718291780467`*^9}, 3.5038761961479836`*^9, {3.504156546965613*^9, 
   3.504156548322815*^9}, {3.5042968954456654`*^9, 3.5042969168056955`*^9}, {
   3.5051010426366124`*^9, 3.505101050326623*^9}, 3.5053446414337845`*^9, {
   3.5053446931938567`*^9, 3.505344715043887*^9}, 3.50535355708521*^9, {
   3.509473076633647*^9, 3.509473117827003*^9}, 3.509473221522934*^9, {
   3.5094732830534534`*^9, 3.509473292318983*^9}, {3.5094751195374947`*^9, 
   3.5094751247597933`*^9}, 3.5095546021524253`*^9, {3.5095604705070734`*^9, 
   3.5095604739670787`*^9}, 3.509901170672567*^9, 3.509901379052859*^9, 
   3.5101726030676427`*^9, {3.5101726631121483`*^9, 3.510172663673749*^9}, {
   3.510172826725236*^9, 3.5101728304380417`*^9}, {3.510173018449572*^9, 
   3.5101730407264113`*^9}, {3.5101733867038193`*^9, 3.510173418621475*^9}, 
   3.5101793621427617`*^9, 3.5105917427974453`*^9, 3.5105925522585783`*^9, {
   3.510784548740075*^9, 3.5107845520472813`*^9}, {3.512185343432107*^9, 
   3.51218534510131*^9}, 3.5132775498937836`*^9, 3.5132797211568236`*^9, {
   3.513293763758853*^9, 3.5132937639588537`*^9}, {3.5137081594015365`*^9, 
   3.5137081716475577`*^9}, 3.516820845796727*^9, 3.516823738634153*^9, 
   3.5410891972939157`*^9, 3.541089288382476*^9, 3.5410897398596687`*^9, {
   3.5455833278623123`*^9, 3.545583327872312*^9}, 3.5455860323901005`*^9, 
   3.5468187108906465`*^9, {3.546818823830805*^9, 3.5468188431208315`*^9}, {
   3.546819028701092*^9, 3.546819106981201*^9}, 3.5468197339420786`*^9, {
   3.546820032802497*^9, 3.5468200417225094`*^9}, {3.5468202594928145`*^9, 
   3.5468202637428207`*^9}, {3.546820484153129*^9, 3.546820484163129*^9}, 
   3.5468216768647985`*^9, {3.5468259196807384`*^9, 3.5468259409107685`*^9}, {
   3.5468266116017075`*^9, 3.5468266206817203`*^9}, 3.5481743238848276`*^9, 
   3.5481755729006195`*^9, 3.563043836907744*^9, {3.5838057151377*^9, 
   3.5838057154377003`*^9}, {3.597004501639829*^9, 3.5970045646399174`*^9}, {
   3.606353116332897*^9, 3.6063531773829823`*^9}, 3.606353322123185*^9, 
   3.6063534601333785`*^9, 3.606353886423975*^9, 3.606353965074085*^9, 
   3.606405803184204*^9, 3.6064065850052986`*^9, {3.6064068107956142`*^9, 
   3.606406847015665*^9}, 3.6069297091773367`*^9, 3.6069297862674446`*^9, 
   3.606929845187527*^9, {3.606929877377572*^9, 3.606929878177573*^9}, 
   3.6079892691782894`*^9, 3.6079893744784365`*^9, {3.6092102437399592`*^9, 
   3.60921025139997*^9}, 3.6092103025100417`*^9, {3.609215145728823*^9, 
   3.6092151462588243`*^9}, {3.6092151947688923`*^9, 
   3.6092152257889357`*^9}, {3.609215420069207*^9, 3.609215488289303*^9}, {
   3.6100497035977945`*^9, 3.6100497099878035`*^9}, 3.610077731690462*^9, 
   3.6101603921959934`*^9, {3.6237921937210565`*^9, 3.6237921954838595`*^9}, {
   3.623792341508917*^9, 3.623792342990919*^9}, 3.6237924668941374`*^9, 
   3.6237925448022738`*^9, 3.6238608439638786`*^9, {3.623873042493814*^9, 
   3.623873048213822*^9}, {3.6238788588991795`*^9, 3.623878859839181*^9}, {
   3.6240417928592124`*^9, 3.6240418329432697`*^9}, {3.6240419573226357`*^9, 
   3.6240419613626413`*^9}, {3.6240423756452312`*^9, 
   3.6240423814152393`*^9}, {3.6240424236773*^9, 3.6240424374813194`*^9}, 
   3.6240433257147713`*^9, {3.6240447191031227`*^9, 3.6240447511291676`*^9}, 
   3.624044966439472*^9, 3.6240463303125954`*^9, 3.6240463878626766`*^9, 
   3.6240550702685723`*^9, 3.6240562857622743`*^9, 3.624056326642331*^9, 
   3.6240565239226074`*^9, {3.624056676872822*^9, 3.624056678442824*^9}, {
   3.625263055995204*^9, 3.6252631040852714`*^9}, {3.625264148942871*^9, 
   3.6252641564028816`*^9}, 3.6260234558949533`*^9, {3.6262105080070486`*^9, 
   3.626210508194249*^9}, {3.626228844330903*^9, 3.626228851810913*^9}, {
   3.6262288871849637`*^9, 3.626228891134969*^9}, {3.6262289431730433`*^9, 
   3.6262289936631145`*^9}, 3.626229027722163*^9, 3.6301689963541574`*^9, {
   3.630169033767023*^9, 3.6301690689480853`*^9}, {3.6301716487945833`*^9, 
   3.6301716589502015`*^9}, {3.6301717737286034`*^9, 3.6301717832612205`*^9}, 
   3.6642968067873764`*^9, {3.664298481861185*^9, 3.6642984826192284`*^9}, {
   3.664298637631095*^9, 3.6642986629935455`*^9}, 3.664298728966319*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.626202384769887*^9, 3.6262023855708885`*^9}}],

Cell[BoxData[Cell[TextData[{
  StyleBox["Rules for integrands of the form ",
   FontFamily->"Arial"],
  Cell[BoxData[
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"g", " ", 
       RowBox[{"Tan", "[", 
        RowBox[{"e", "+", 
         RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "p"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"Tan", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}], "m"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"c", "+", 
       RowBox[{"d", " ", 
        RowBox[{"Cot", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}], "n"]}]],
   CellDingbat->None,
   CellChangeTimes->{
    3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
     3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
     3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
     3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
     3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
     3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
     3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
     3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
     3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
     3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
     3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
     3.5193325694253187`*^9, {3.5193415004828687`*^9, 
     3.5193415113404875`*^9}, {3.5193513965602303`*^9, 
     3.519351397420232*^9}, {3.5194037839416766`*^9, 3.5194037847117205`*^9}, 
     3.52105258275843*^9, 3.5210531741726685`*^9, {3.521057461672199*^9, 
     3.5210574760242243`*^9}, {3.521059881564049*^9, 3.521059886088057*^9}, {
     3.5213902158895197`*^9, 3.521390217543123*^9}, {3.521390827878595*^9, 
     3.521390829376197*^9}, {3.5214688792561245`*^9, 3.521468879443325*^9}, {
     3.523320201951167*^9, 3.523320202247567*^9}, {3.5288596764894824`*^9, 
     3.5288596768094826`*^9}, {3.529196266260353*^9, 
     3.5291962665099535`*^9}, {3.5291997050223927`*^9, 
     3.5291997052563934`*^9}, {3.529201346457276*^9, 3.529201347252877*^9}, {
     3.529285041073242*^9, 3.5292850412632427`*^9}, {3.529285215443486*^9, 
     3.529285215443486*^9}, {3.5295115356999426`*^9, 
     3.5295115433443794`*^9}, {3.529521412127842*^9, 3.529521414647986*^9}, {
     3.529529429975619*^9, 3.529529432955224*^9}, 3.5340074894011116`*^9, 
     3.5415537711400824`*^9, {3.5415538409034047`*^9, 3.541553841106205*^9}, {
     3.5415564120531206`*^9, 3.5415564206955357`*^9}, 
     3.5415565488341613`*^9, {3.5415605631516123`*^9, 
     3.5415605860836525`*^9}, {3.541561323247347*^9, 3.5415613234501476`*^9}, 
     3.5416162115728135`*^9, {3.5416506679001875`*^9, 3.541650687980216*^9}, 
     3.560533948494043*^9, 3.560538006319724*^9, {3.5605392374714475`*^9, 
     3.5605392382814484`*^9}, 3.5606250606115856`*^9, 3.5617573869745255`*^9, 
     3.561757856045182*^9, {3.561761339582559*^9, 3.5617613636025925`*^9}, {
     3.5617652519980364`*^9, 3.561765252188037*^9}, {3.561767460571129*^9, 
     3.5617674608411293`*^9}, 3.5621081762414055`*^9, {3.5621084468550806`*^9,
      3.5621084519718895`*^9}, 3.563340740121106*^9},
   FontWeight->"Bold"]
 }], "None"]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.4965234353062396`*^9, {3.5193214825316973`*^9, 3.5193214852617016`*^9}, {
   3.523316399894187*^9, 3.5233164032341914`*^9}, {3.523318350558202*^9, 
   3.5233183516382036`*^9}, {3.536542725780803*^9, 3.536542725780803*^9}, {
   3.5367764878952584`*^9, 3.5367764886452594`*^9}, {3.544322815209103*^9, 
   3.5443228192963104`*^9}, {3.5450662624913826`*^9, 3.545066292141424*^9}, {
   3.545066402271579*^9, 3.5450664054415827`*^9}, {3.5450834884295015`*^9, 
   3.5450834895895033`*^9}, {3.5454961263762493`*^9, 
   3.5454961321462574`*^9}, {3.5454963863166127`*^9, 
   3.5454964580867133`*^9}, {3.545497046127537*^9, 3.545497046127537*^9}, {
   3.5454971130676303`*^9, 3.545497136257663*^9}, 3.545610399977621*^9, {
   3.546040778592962*^9, 3.546040778592962*^9}, {3.5461052065706367`*^9, 
   3.5461052249474688`*^9}, {3.546191339879622*^9, 3.5461913430596266`*^9}, {
   3.5462141824067917`*^9, 3.5462142145768366`*^9}, {3.5462145455473003`*^9, 
   3.5462145601073203`*^9}, {3.5463149785974817`*^9, 
   3.5463149794195285`*^9}, {3.5488738437683954`*^9, 
   3.5488738699084315`*^9}, {3.5488890647645535`*^9, 3.548889080804576*^9}, {
   3.5505951583099127`*^9, 3.5505951620351257`*^9}, {3.5505952613798075`*^9, 
   3.5505952630869055`*^9}, {3.5535321133435373`*^9, 
   3.5535321173537664`*^9}, {3.5536175341411576`*^9, 
   3.5536175352411594`*^9}, {3.55396599671187*^9, 3.55396599862998*^9}, {
   3.560190530310161*^9, 3.560190628512334*^9}, {3.5602162723838596`*^9, 
   3.5602162793138695`*^9}, {3.5606249190913877`*^9, 3.560624924321395*^9}, {
   3.5617663419995623`*^9, 3.5617663705796027`*^9}, {3.5617666456099873`*^9, 
   3.561766656350003*^9}, {3.562107691486154*^9, 3.5621077390350375`*^9}, {
   3.5621080165751247`*^9, 3.5621080185719285`*^9}, {3.5621081511877613`*^9, 
   3.5621081511877613`*^9}, {3.5633407304210925`*^9, 3.563340730891093*^9}, {
   3.575852587746504*^9, 3.575852593256511*^9}, {3.575852659996605*^9, 
   3.575852659996605*^9}, {3.575852743186721*^9, 3.575852743186721*^9}, {
   3.57585284254686*^9, 3.575852895956935*^9}, {3.575853026617118*^9, 
   3.575853038617135*^9}, {3.575853153907296*^9, 3.575853185757341*^9}, {
   3.575853290447487*^9, 3.575853290447487*^9}, {3.5758535595198665`*^9, 
   3.5758535595198665`*^9}, {3.596998393501259*^9, 3.596998397911265*^9}, {
   3.605894222337658*^9, 3.605894256080517*^9}, {3.6065875976010056`*^9, 
   3.6065875976010056`*^9}, {3.624650818787819*^9, 3.62465083278662*^9}, {
   3.6262024007059145`*^9, 3.6262024007059145`*^9}, {3.630171621286717*^9, 
   3.6301716213023167`*^9}, {3.630171681728242*^9, 3.630171681728242*^9}, {
   3.6642991824622574`*^9, 3.6642991872365303`*^9}},
 TextAlignment->Center,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{Cell[TextData[StyleBox["1:",
   FontFamily->"Arial",
   FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"g", " ", 
       RowBox[{"Tan", "[", 
        RowBox[{"e", "+", 
         RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "p"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"Tan", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}], "m"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"c", "+", 
       RowBox[{"d", " ", 
        RowBox[{"Cot", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}], "n"], 
    RowBox[{"\[DifferentialD]", "x"}], "  ", 
    StyleBox["when",
     FontFamily->"Arial",
     FontWeight->"Plain"], " ", Cell[TextData[Cell[BoxData[
     RowBox[{"n", "\[Element]", "\[DoubleStruckCapitalZ]"}]]]], 
     "None"]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9, 
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9, 
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9}, 
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193415804486094`*^9, 
   3.5193415824298124`*^9}, {3.5193459537101994`*^9, 
   3.5193459567210045`*^9}, {3.5193514074002457`*^9, 
   3.5193514076802464`*^9}, {3.5194037987985263`*^9, 3.519403799124545*^9}, 
   3.519410735765964*^9, {3.5233155477729936`*^9, 3.5233155497329965`*^9}, {
   3.5233157343632545`*^9, 3.5233157343632545`*^9}, 3.5239204163859615`*^9, {
   3.5239209756969433`*^9, 3.523920976851345*^9}, {3.5239210574690866`*^9, 
   3.5239210738491154`*^9}, {3.529529514995768*^9, 3.52952953897301*^9}, {
   3.529530096003188*^9, 3.5295300961903887`*^9}, 3.534007429411028*^9, {
   3.5415552865111437`*^9, 3.541555295262759*^9}, 3.5416244798324237`*^9, {
   3.5416246450471644`*^9, 3.541624690056343*^9}, 3.541626366779134*^9, 
   3.541628901025448*^9, 3.5416290724956875`*^9, 3.5417936736567183`*^9, {
   3.541801799109347*^9, 3.5418018093593607`*^9}, 3.5418018795094595`*^9, 
   3.541801925819524*^9, {3.5418024417002463`*^9, 3.5418024419302464`*^9}, {
   3.5418024734002905`*^9, 3.5418024867203093`*^9}, {3.541804026542465*^9, 
   3.541804026542465*^9}, {3.5418051959141026`*^9, 3.5418051961241026`*^9}, {
   3.5418055896246533`*^9, 3.5418055898246536`*^9}, {3.541807928007927*^9, 
   3.5418079282179275`*^9}, {3.541816058189309*^9, 3.54181605834931*^9}, {
   3.541895620942338*^9, 3.5418956211823387`*^9}, {3.553299727838824*^9, 
   3.5532997300288267`*^9}, {3.5532999791891756`*^9, 
   3.5532999817291794`*^9}, {3.553305063816294*^9, 3.5533050640562944`*^9}, {
   3.5533051019963474`*^9, 3.553305104566351*^9}, {3.5533054443968267`*^9, 
   3.5533054475368314`*^9}, 3.5533078575102053`*^9, {3.5533106008040457`*^9, 
   3.5533106008040457`*^9}, {3.5546831350233016`*^9, 3.554683135273302*^9}, 
   3.560216298603896*^9, 3.5606251917417693`*^9, {3.560975839890805*^9, 
   3.560975839890805*^9}, {3.5609767760421157`*^9, 3.5609767854021287`*^9}, {
   3.560976852662223*^9, 3.560976853522224*^9}, 3.5609769271023273`*^9, {
   3.560976964532379*^9, 3.5609769756223946`*^9}, 3.5612650221567316`*^9, {
   3.561265055057189*^9, 3.561265060532799*^9}, {3.5612653477293034`*^9, 
   3.5612653496949067`*^9}, {3.561310384662383*^9, 3.5613103850223837`*^9}, 
   3.561312920465933*^9, {3.5618234264110518`*^9, 3.561823438071068*^9}, 
   3.561925865751144*^9, 3.5619260660634246`*^9, 3.5635825045499496`*^9, {
   3.5635826463301487`*^9, 3.5635826463401484`*^9}, {3.5635826884902077`*^9, 
   3.5635826884902077`*^9}, {3.5638244925399237`*^9, 3.5638245038599396`*^9}, 
   3.563996420240003*^9, {3.5639964932526054`*^9, 3.5639964939826064`*^9}, 
   3.5640145226324215`*^9, {3.564016220404798*^9, 3.5640162249248047`*^9}, {
   3.564016568695286*^9, 3.564016568695286*^9}, {3.564016788735594*^9, 
   3.564016789855595*^9}, {3.564018964066139*^9, 3.5640189837661667`*^9}, {
   3.5640195957070236`*^9, 3.564019595907024*^9}, {3.5640199524575233`*^9, 
   3.5640199694775467`*^9}, 3.5641540447309437`*^9, {3.564154076240988*^9, 
   3.56415412034105*^9}, {3.5641667095281773`*^9, 3.5641667105381784`*^9}, {
   3.564166852078377*^9, 3.564166852078377*^9}, {3.564166956508523*^9, 
   3.564166956878524*^9}, {3.5641680993101225`*^9, 3.5641681398001795`*^9}, 
   3.5820748138669624`*^9, {3.582078243945119*^9, 3.5820782445651197`*^9}, {
   3.5820826210512466`*^9, 3.582082621241247*^9}, {3.582083322402229*^9, 
   3.582083322402229*^9}, {3.58208336597229*^9, 3.5820833915223255`*^9}, 
   3.582083609742631*^9, {3.5821599562849083`*^9, 3.5821599565149083`*^9}, {
   3.5821622274480877`*^9, 3.582162227618088*^9}, {3.582240953280669*^9, 
   3.5822409535006695`*^9}, 3.5822547098796463`*^9, {3.5839689570071073`*^9, 
   3.5839689571771073`*^9}, {3.583979831268547*^9, 3.583979832214601*^9}, {
   3.5841990598090887`*^9, 3.5841990976391554`*^9}, {3.584206915119059*^9, 
   3.584206929679079*^9}, {3.5843178906590095`*^9, 3.5843178925466127`*^9}, {
   3.5843199525302305`*^9, 3.584319964963453*^9}, {3.584320004977523*^9, 
   3.5843200172703447`*^9}, {3.584384665944253*^9, 3.5843846680242558`*^9}, {
   3.5843867869172225`*^9, 3.5843867898572264`*^9}, {3.584386822887273*^9, 
   3.5843868311772842`*^9}, {3.5843939269014044`*^9, 
   3.5843939283914065`*^9}, {3.584396558984169*^9, 3.584396611514242*^9}, 
   3.611003449905646*^9, 3.6110044404449854`*^9, {3.611014138544061*^9, 
   3.611014143021269*^9}, 3.612115250958517*^9, {3.61766111905355*^9, 
   3.617661120573636*^9}, 3.6176612463798323`*^9, 3.6176613963954124`*^9, {
   3.617661465739379*^9, 3.6176614699096174`*^9}, {3.6176615189894247`*^9, 
   3.617661523686693*^9}, {3.617661654139155*^9, 3.6176616672309036`*^9}, {
   3.6176619499440737`*^9, 3.6176619526192265`*^9}, {3.6179901253007936`*^9, 
   3.61799013624242*^9}, {3.617990224696479*^9, 3.6179902449546375`*^9}, {
   3.625254899880661*^9, 3.6252549271651087`*^9}, 3.6260259990538197`*^9, 
   3.6260278814202585`*^9, {3.6301716213023167`*^9, 3.630171621317917*^9}, 
   3.630171681728242*^9, {3.6642991979731445`*^9, 3.6642992028324223`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Algebraic normalization", "Subsubsection",
 CellChangeTimes->{
  3.479686820458373*^9, {3.490657960122612*^9, 3.49065796095366*^9}, 
   3.4964414996009283`*^9, {3.4964447088058186`*^9, 3.4964447131058245`*^9}, 
   3.496528844063812*^9, 3.497575950496916*^9, 3.4975775797018027`*^9, 
   3.497639496888481*^9, 3.4976636252234545`*^9, 3.497665167504564*^9, {
   3.561226054703641*^9, 3.5612260578536453`*^9}, {3.564014697112665*^9, 
   3.5640146992226686`*^9}, {3.564014729972711*^9, 3.564014741602728*^9}, 
   3.564154158611103*^9, {3.6252549507211504`*^9, 3.6252549526711535`*^9}, 
   3.6254347678314524`*^9}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"c", "+", 
    RowBox[{"d", " ", 
     RowBox[{"Cot", "[", "z", "]"}]}]}], "\[Equal]", 
   FractionBox[
    RowBox[{"d", "+", 
     RowBox[{"c", " ", 
      RowBox[{"Tan", "[", "z", "]"}]}]}], 
    RowBox[{"Tan", "[", "z", "]"}]]}]],
  CellChangeTimes->{{3.6252550900937953`*^9, 3.6252551495650997`*^9}}]
}], "Subsubsection",
 CellChangeTimes->{
  3.479686820458373*^9, {3.490657960122612*^9, 3.49065796095366*^9}, 
   3.4964414996009283`*^9, {3.4964447088058186`*^9, 3.4964447131058245`*^9}, 
   3.496528844063812*^9, 3.497575950496916*^9, 3.4975775797018027`*^9, 
   3.497639496888481*^9, 3.4976636252234545`*^9, 3.497665167504564*^9, {
   3.561226054703641*^9, 3.5612260578536453`*^9}, {3.564014697112665*^9, 
   3.5640146992226686`*^9}, {3.564014729972711*^9, 3.564014741602728*^9}, 
   3.564154158611103*^9, {3.6252549507211504`*^9, 3.6252549526711535`*^9}, {
   3.6252551596895175`*^9, 3.62525516669593*^9}, {3.630171621333517*^9, 
   3.6301716213491173`*^9}, {3.6301716817594414`*^9, 3.6301716817594414`*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{"n", "\[Element]", "\[DoubleStruckCapitalZ]"}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, 
   3.4976397903561964`*^9, {3.497663553088928*^9, 3.4976635622149444`*^9}, 
   3.4976651743061757`*^9, {3.4991317949832096`*^9, 3.4991317953032103`*^9}, {
   3.561226279503955*^9, 3.5612262831739607`*^9}, {3.5612263210940137`*^9, 
   3.5612263409240413`*^9}, {3.561227979331335*^9, 3.561227980911338*^9}, {
   3.561309917491729*^9, 3.561309917491729*^9}, {3.561422840120915*^9, 
   3.561422840120915*^9}, {3.5635826847702026`*^9, 3.5635826847702026`*^9}, {
   3.563824156349453*^9, 3.563824156349453*^9}, {3.563909210116375*^9, 
   3.563909210116375*^9}, {3.563911783029977*^9, 3.563911783029977*^9}, {
   3.5640165541752653`*^9, 3.5640165541752653`*^9}, {3.564019413056768*^9, 
   3.564019413056768*^9}, {3.5640199771975574`*^9, 3.5640199771975574`*^9}, {
   3.564154196931157*^9, 3.564154196931157*^9}, {3.564167082448699*^9, 
   3.564167082448699*^9}, {3.5641684276805825`*^9, 3.564168427840583*^9}, {
   3.582078253155132*^9, 3.5820782535851326`*^9}, {3.5820833259922338`*^9, 
   3.5820833259922338`*^9}, 3.5842070099091916`*^9, {3.584320156562989*^9, 
   3.584320159558194*^9}, 3.5843202257491107`*^9, {3.584386845867305*^9, 
   3.584386845867305*^9}, {3.584393964501457*^9, 3.584393964501457*^9}, {
   3.584396627384265*^9, 3.584396627384265*^9}, {3.6176615246387477`*^9, 
   3.617661526902877*^9}, {3.617661672431201*^9, 3.6176616729982333`*^9}, {
   3.6176619563584404`*^9, 3.617661961450732*^9}, {3.6179902549452095`*^9, 
   3.6179902549452095`*^9}, {3.6252549461815424`*^9, 3.6252549461815424`*^9}, 
   3.6258627332893004`*^9}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"g", " ", 
      RowBox[{"Tan", "[", 
       RowBox[{"e", "+", 
        RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "p"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       RowBox[{"Tan", "[", 
        RowBox[{"e", "+", 
         RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}], "m"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"c", "+", 
      RowBox[{"d", " ", 
       RowBox[{"Cot", "[", 
        RowBox[{"e", "+", 
         RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}], "n"], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
     SuperscriptBox["g", "n"]}]}], 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"g", " ", 
        RowBox[{"Tan", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], 
      RowBox[{"p", "-", "n"}]], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         RowBox[{"Tan", "[", 
          RowBox[{"e", "+", 
           RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}], "m"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"d", "+", 
        RowBox[{"c", " ", 
         RowBox[{"Tan", "[", 
          RowBox[{"e", "+", 
           RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}], "n"], " ", 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579723816*^9, 3.4796580261689425`*^9}, 
   3.479661191290163*^9, {3.479686720164157*^9, 3.479686720204214*^9}, {
   3.479686831554328*^9, 3.479686834819022*^9}, {3.4940970712485504`*^9, 
   3.4940971130286083`*^9}, 3.4940971455886545`*^9, 3.49644160092107*^9, 
   3.496441663571158*^9, {3.496528814953771*^9, 3.4965288223737817`*^9}, 
   3.497576045657049*^9, 3.497576089857111*^9, 3.4975776169418545`*^9, {
   3.497577677171939*^9, 3.497577691381959*^9}, {3.4976395112561064`*^9, 
   3.4976395477133703`*^9}, {3.49766342891271*^9, 3.497663457772761*^9}, {
   3.497663580747777*^9, 3.497663583134581*^9}, {3.4976652106074395`*^9, 
   3.4976652204666567`*^9}, 3.4976652749419527`*^9, {3.4991316095329504`*^9, 
   3.4991316274529753`*^9}, {3.4991318033632216`*^9, 3.499131806573226*^9}, {
   3.56122609003369*^9, 3.5612261336137514`*^9}, {3.5612261841238217`*^9, 
   3.561226212973862*^9}, {3.561226245623908*^9, 3.561226251553916*^9}, 
   3.5612273551154613`*^9, {3.56126513522573*^9, 3.56126525479994*^9}, {
   3.5612652963584127`*^9, 3.5612653308188734`*^9}, 3.561925867011146*^9, 
   3.561926066683426*^9, {3.5635826463801484`*^9, 3.563582646420149*^9}, {
   3.563582693780215*^9, 3.5635826949302163`*^9}, 3.5635835835414605`*^9, 
   3.5635836156015053`*^9, {3.5638245154999557`*^9, 3.5638245234999666`*^9}, {
   3.564014524482424*^9, 3.564014526282426*^9}, {3.5640149915030775`*^9, 
   3.564015054033165*^9}, {3.564019055216267*^9, 3.56401910007633*^9}, 
   3.5640192778865786`*^9, {3.564154176241128*^9, 3.5641541887011456`*^9}, {
   3.5641542645912514`*^9, 3.564154314201321*^9}, {3.5641677295096054`*^9, 
   3.5641677311696076`*^9}, {3.5641683163004265`*^9, 3.5641684101405582`*^9}, 
   3.582074813876962*^9, 3.582078262695145*^9, {3.5820828317615423`*^9, 
   3.582082858171579*^9}, {3.584206946559103*^9, 3.5842069983391757`*^9}, {
   3.6110140782187552`*^9, 3.6110141081240077`*^9}, {3.6176611212376747`*^9, 
   3.617661123581808*^9}, 3.617661246891862*^9, {3.617661396914442*^9, 
   3.617661397906499*^9}, {3.6176614835944*^9, 3.6176614850024805`*^9}, {
   3.617661527580916*^9, 3.617661528996997*^9}, {3.6176616793625975`*^9, 
   3.617661689811195*^9}, {3.6176619731494007`*^9, 3.6176619772106333`*^9}, 
   3.6176620315487413`*^9, {3.61799013047509*^9, 3.617990210472666*^9}, {
   3.6252549598159666`*^9, 3.625255008082451*^9}, {3.62525518355956*^9, 
   3.6252551975703845`*^9}, {3.6260260073062344`*^9, 3.626026083403168*^9}, {
   3.6301716213491173`*^9, 3.630171621380317*^9}, 3.6301716817594414`*^9, {
   3.6642992337451906`*^9, 3.664299256208475*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"g_.", "*", 
        RowBox[{"tan", "[", 
         RowBox[{"e_.", "+", 
          RowBox[{"f_.", "*", "x_"}]}], "]"}]}], ")"}], "^", "p_."}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_", "+", 
        RowBox[{"b_.", "*", 
         RowBox[{"tan", "[", 
          RowBox[{"e_.", "+", 
           RowBox[{"f_.", "*", "x_"}]}], "]"}]}]}], ")"}], "^", "m_."}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"c_", "+", 
        RowBox[{"d_.", "*", 
         RowBox[{"cot", "[", 
          RowBox[{"e_.", "+", 
           RowBox[{"f_.", "*", "x_"}]}], "]"}]}]}], ")"}], "^", "n_."}]}], 
    ",", "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{"g", "^", "n"}], "*", 
    RowBox[{"Int", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"g", "*", 
          RowBox[{"Tan", "[", 
           RowBox[{"e", "+", 
            RowBox[{"f", "*", "x"}]}], "]"}]}], ")"}], "^", 
        RowBox[{"(", 
         RowBox[{"p", "-", "n"}], ")"}]}], "*", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"a", "+", 
          RowBox[{"b", "*", 
           RowBox[{"Tan", "[", 
            RowBox[{"e", "+", 
             RowBox[{"f", "*", "x"}]}], "]"}]}]}], ")"}], "^", "m"}], "*", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"d", "+", 
          RowBox[{"c", "*", 
           RowBox[{"Tan", "[", 
            RowBox[{"e", "+", 
             RowBox[{"f", "*", "x"}]}], "]"}]}]}], ")"}], "^", "n"}]}], ",", 
      "x"}], "]"}]}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "f", ",", "g", ",", 
        "m", ",", "p"}], "}"}], ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"IntegerQ", "[", "n", "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, {
   3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.4964415782510386`*^9, 
   3.4965287890937347`*^9, 3.4975759366868963`*^9, 3.497577547811758*^9, 
   3.49758349857209*^9, 3.4976394822868557`*^9, 3.497663384967433*^9, {
   3.4976635889065914`*^9, 3.497663592322997*^9}, 3.4976651612957525`*^9, {
   3.49913160954295*^9, 3.4991316274529753`*^9}, 3.4991317842431946`*^9, 
   3.5609702671974792`*^9, 3.5609704436320634`*^9, {3.561226361824071*^9, 
   3.5612263834141006`*^9}, {3.561226446604189*^9, 3.5612264740842276`*^9}, 
   3.561227358565466*^9, 3.5612660745725803`*^9, {3.561266323049816*^9, 
   3.5612663247502193`*^9}, 3.561823480361127*^9, 3.5619257938670425`*^9, {
   3.5635826464301486`*^9, 3.563582646460149*^9}, {3.563582721180253*^9, 
   3.5635827226602554`*^9}, {3.5635836233415165`*^9, 3.5635836280515227`*^9}, 
   3.563584203162328*^9, 3.563644669371813*^9, 3.563644704315811*^9, {
   3.5638245279199734`*^9, 3.563824545659998*^9}, {3.563996501312617*^9, 
   3.5639965021226177`*^9}, 3.5640151672533236`*^9, {3.564015204023375*^9, 
   3.5640152046433764`*^9}, {3.5640166062553377`*^9, 
   3.5640166601854134`*^9}, {3.564016745825534*^9, 3.564016746265534*^9}, {
   3.564019332176655*^9, 3.564019332546655*^9}, 3.5640193817967243`*^9, {
   3.564019416336773*^9, 3.5640194301967916`*^9}, 3.5640199927075796`*^9, {
   3.564154339701357*^9, 3.5641543844814196`*^9}, 3.5641544420215*^9, {
   3.5641546152117424`*^9, 3.5641546240217547`*^9}, 3.5641564421893005`*^9, {
   3.564167088218707*^9, 3.564167101428726*^9}, {3.5641677394296193`*^9, 
   3.564167746619629*^9}, {3.5641684407006006`*^9, 3.5641684626606317`*^9}, 
   3.5641684997606835`*^9, {3.564168825763942*^9, 3.5641688320939507`*^9}, 
   3.5820748526170163`*^9, {3.582078274615162*^9, 3.5820782798951693`*^9}, {
   3.582083033351824*^9, 3.58208306612187*^9}, {3.582083167742012*^9, 
   3.5820831686420135`*^9}, {3.582083332492243*^9, 3.582083339112252*^9}, {
   3.5821561036655016`*^9, 3.5821561075455065`*^9}, {3.5821622139880686`*^9, 
   3.5821622165080724`*^9}, {3.5839688892170124`*^9, 3.583968894157019*^9}, {
   3.583969775192754*^9, 3.5839697777927575`*^9}, {3.5841989851005573`*^9, 
   3.5841990065505953`*^9}, {3.5841991133327827`*^9, 3.584199114331185*^9}, 
   3.5842009139659452`*^9, 3.5842042715895386`*^9, 3.584206850848969*^9, {
   3.58420703050922*^9, 3.5842071033893223`*^9}, {3.584207134499366*^9, 
   3.5842071364993687`*^9}, 3.584317765094389*^9, {3.5843200969864845`*^9, 
   3.5843201056757*^9}, {3.584320148497775*^9, 3.5843201959998584`*^9}, {
   3.584384655714239*^9, 3.584384658934243*^9}, {3.5843866899770865`*^9, 
   3.5843866955570946`*^9}, 3.584393498600805*^9, {3.584393535030856*^9, 
   3.584393597040943*^9}, {3.5843945851123734`*^9, 3.5843946011923957`*^9}, {
   3.58439464740246*^9, 3.584394647582461*^9}, {3.5843960850835056`*^9, 
   3.584396126983564*^9}, {3.6110141535044875`*^9, 3.6110141715693192`*^9}, {
   3.611014210085787*^9, 3.6110142366370335`*^9}, {3.6176611652811937`*^9, 
   3.6176611974890356`*^9}, {3.6176615323501887`*^9, 3.617661543085803*^9}, {
   3.6176616965165787`*^9, 3.617661718141815*^9}, 3.6176620913981647`*^9, {
   3.61766213537068*^9, 3.6176621845514927`*^9}, {3.6176622187504487`*^9, 
   3.617662252370372*^9}, {3.6176623292977715`*^9, 3.6176623350581007`*^9}, {
   3.617990335788833*^9, 3.617990346965472*^9}, {3.617990400723547*^9, 
   3.6179904273370695`*^9}, {3.618023650313898*^9, 3.618023660959507*^9}, {
   3.6180792624265423`*^9, 3.6180792706150103`*^9}, {3.625255237617655*^9, 
   3.6252552896633463`*^9}, {3.6252553537834597`*^9, 3.625255374593896*^9}, 
   3.6254347894714823`*^9, {3.625434873808601*^9, 3.625434875968604*^9}, 
   3.62586285194851*^9, {3.626026150374086*^9, 3.6260261718397236`*^9}, {
   3.6260262071425858`*^9, 3.6260262258782187`*^9}, {3.630171621395917*^9, 
   3.63017163698416*^9}, 3.630171749608961*^9, {3.66429926293486*^9, 
   3.6642992783017387`*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{Cell[TextData[StyleBox["2.",
   FontFamily->"Arial"]], "None"], "  ", 
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"g", " ", 
       RowBox[{"Tan", "[", 
        RowBox[{"e", "+", 
         RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "p"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"Tan", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}], "m"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"c", "+", 
       RowBox[{"d", " ", 
        RowBox[{"Cot", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}], "n"], 
    RowBox[{"\[DifferentialD]", "x"}], "  ", 
    StyleBox["when",
     FontFamily->"Arial",
     FontWeight->"Plain"], " ", Cell[TextData[Cell[BoxData[
     RowBox[{"n", "\[NotElement]", "\[DoubleStruckCapitalZ]"}]]]], 
     "None"]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9, 
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519250976620308*^9, 3.5192509795375133`*^9}, 3.5192520188581386`*^9, {
   3.5193215829334736`*^9, 3.519321595725496*^9}, {3.5194112531544743`*^9, 
   3.5194112537784753`*^9}, {3.519411537636574*^9, 3.519411568711828*^9}, {
   3.519793882583559*^9, 3.519793883878361*^9}, {3.5214731238817034`*^9, 
   3.521473124371704*^9}, {3.523316505044334*^9, 3.523316505044334*^9}, {
   3.5233184226511183`*^9, 3.523318422861119*^9}, 3.5328367822219863`*^9, {
   3.5328742732655816`*^9, 3.5328742968684235`*^9}, {3.532874332701686*^9, 
   3.532874341843302*^9}, {3.532874546156861*^9, 3.532874552443672*^9}, {
   3.5328756408887835`*^9, 3.5328756426671867`*^9}, {3.5328756840852594`*^9, 
   3.532875690340871*^9}, {3.5328775995694237`*^9, 3.532877607619038*^9}, {
   3.5330804511936502`*^9, 3.5330804511936502`*^9}, {3.5330827213068285`*^9, 
   3.5330827218568287`*^9}, {3.5368634501889877`*^9, 
   3.5368634503449883`*^9}, {3.537654628221073*^9, 3.537654628221073*^9}, {
   3.5376556650325246`*^9, 3.5376556690825305`*^9}, {3.5376558319727583`*^9, 
   3.537655832122759*^9}, {3.5403190180369616`*^9, 3.540319018277975*^9}, {
   3.540320078404611*^9, 3.5403200969116697`*^9}, {3.54497301407633*^9, 
   3.5449730147315316`*^9}, {3.5449730455259857`*^9, 3.54497310485289*^9}, 
   3.5449734027198133`*^9, {3.544973705703545*^9, 3.5449737123023567`*^9}, {
   3.5449743847103376`*^9, 3.5449743847103376`*^9}, {3.5449897190542192`*^9, 
   3.5449897371142445`*^9}, 3.5449982729778285`*^9, {3.5450664353216248`*^9, 
   3.5450664355316253`*^9}, {3.545067166822649*^9, 3.545067173712659*^9}, {
   3.54741533928432*^9, 3.547415340235921*^9}, {3.5753276740882525`*^9, 
   3.5753276759582553`*^9}, {3.5786881062954636`*^9, 3.578688106475464*^9}, {
   3.5791314009596395`*^9, 3.57913140142964*^9}, {3.5970228874746857`*^9, 
   3.5970228879738865`*^9}, {3.6020294507927995`*^9, 
   3.6020294510027995`*^9}, {3.611960800241652*^9, 3.6119608004216523`*^9}, {
   3.6155070815880723`*^9, 3.6155070833180747`*^9}, {3.615507306278387*^9, 
   3.615507306658387*^9}, {3.6155076561488767`*^9, 3.615507666308891*^9}, {
   3.624076610587952*^9, 3.6240766171555634`*^9}, {3.6240766768286686`*^9, 
   3.6240766768286686`*^9}, {3.6246507881310663`*^9, 3.624650789113122*^9}, {
   3.624650987324459*^9, 3.6246510330430737`*^9}, {3.6247399678699584`*^9, 
   3.624739974225322*^9}, {3.6259663844419956`*^9, 3.6259663867219987`*^9}, {
   3.626025816054299*^9, 3.626025821732709*^9}, {3.6260259897562037`*^9, 
   3.626025991846607*^9}, {3.6260263457800293`*^9, 3.6260263563100476`*^9}, 
   3.6260278832602615`*^9, {3.630171621411517*^9, 3.6301716214271173`*^9}, 
   3.6301716817750416`*^9, 3.664299356437208*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["1.",
    FontFamily->"Arial"]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"g", " ", 
        RowBox[{"Tan", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "p"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         RowBox[{"Tan", "[", 
          RowBox[{"e", "+", 
           RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}], "m"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"c", "+", 
        RowBox[{"d", " ", 
         RowBox[{"Cot", "[", 
          RowBox[{"e", "+", 
           RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}], "n"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], " ", Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{"n", "\[NotElement]", "\[DoubleStruckCapitalZ]"}], " ", 
       "\[And]", " ", 
       RowBox[{"m", "\[Element]", "\[DoubleStruckCapitalZ]"}]}]]]], 
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9, 
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519250976620308*^9, 3.5192509795375133`*^9}, 3.5192520188581386`*^9, {
   3.5193215829334736`*^9, 3.519321595725496*^9}, {3.5194112531544743`*^9, 
   3.5194112537784753`*^9}, {3.519411537636574*^9, 3.519411568711828*^9}, {
   3.519793882583559*^9, 3.519793883878361*^9}, {3.5214731238817034`*^9, 
   3.521473124371704*^9}, {3.523316505044334*^9, 3.523316505044334*^9}, {
   3.5233184226511183`*^9, 3.523318422861119*^9}, 3.5328367822219863`*^9, {
   3.5328742732655816`*^9, 3.5328742968684235`*^9}, {3.532874332701686*^9, 
   3.532874341843302*^9}, {3.532874546156861*^9, 3.532874552443672*^9}, {
   3.5328756408887835`*^9, 3.5328756426671867`*^9}, {3.5328756840852594`*^9, 
   3.532875690340871*^9}, {3.5328775995694237`*^9, 3.532877607619038*^9}, {
   3.5330804511936502`*^9, 3.5330804511936502`*^9}, {3.5330827213068285`*^9, 
   3.5330827218568287`*^9}, {3.5368634501889877`*^9, 
   3.5368634503449883`*^9}, {3.537654628221073*^9, 3.537654628221073*^9}, {
   3.5376556650325246`*^9, 3.5376556690825305`*^9}, {3.5376558319727583`*^9, 
   3.537655832122759*^9}, {3.5403190180369616`*^9, 3.540319018277975*^9}, {
   3.540320078404611*^9, 3.5403200969116697`*^9}, {3.54497301407633*^9, 
   3.5449730147315316`*^9}, {3.5449730455259857`*^9, 3.54497310485289*^9}, 
   3.5449734027198133`*^9, {3.544973705703545*^9, 3.5449737123023567`*^9}, {
   3.5449743847103376`*^9, 3.5449743847103376`*^9}, {3.5449897190542192`*^9, 
   3.5449897371142445`*^9}, 3.5449982729778285`*^9, {3.5450664353216248`*^9, 
   3.5450664355316253`*^9}, {3.545067166822649*^9, 3.545067173712659*^9}, {
   3.54741533928432*^9, 3.547415340235921*^9}, {3.5753276740882525`*^9, 
   3.5753276759582553`*^9}, {3.5786881062954636`*^9, 3.578688106475464*^9}, {
   3.5791314009596395`*^9, 3.57913140142964*^9}, {3.5970228874746857`*^9, 
   3.5970228879738865`*^9}, {3.6020294507927995`*^9, 
   3.6020294510027995`*^9}, {3.611960800241652*^9, 3.6119608004216523`*^9}, {
   3.6155070815880723`*^9, 3.6155070833180747`*^9}, {3.615507306278387*^9, 
   3.615507306658387*^9}, {3.6155076561488767`*^9, 3.615507666308891*^9}, {
   3.624076610587952*^9, 3.6240766171555634`*^9}, {3.6240766768286686`*^9, 
   3.6240766768286686`*^9}, {3.6246507881310663`*^9, 3.624650789113122*^9}, {
   3.624650987324459*^9, 3.6246510330430737`*^9}, {3.6247399678699584`*^9, 
   3.624739974225322*^9}, {3.6259663844419956`*^9, 3.6259663867219987`*^9}, {
   3.626025816054299*^9, 3.626025821732709*^9}, {3.6260259897562037`*^9, 
   3.626025991846607*^9}, {3.6260263457800293`*^9, 3.6260263563100476`*^9}, {
   3.6260266038980827`*^9, 3.6260266137260995`*^9}, 3.6260278840102625`*^9, {
   3.6301716214427176`*^9, 3.6301716214583173`*^9}, 3.6301716818062415`*^9, 
   3.6642993789314947`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t", 
  RowBox[{Cell[TextData[StyleBox["1:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"Tan", "[", 
       RowBox[{"e", "+", 
        RowBox[{"f", " ", "x"}]}], "]"}], "p"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         RowBox[{"Tan", "[", 
          RowBox[{"e", "+", 
           RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}], "m"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"c", "+", 
        RowBox[{"d", " ", 
         RowBox[{"Cot", "[", 
          RowBox[{"e", "+", 
           RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}], "n"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], " ", Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{"n", "\[NotElement]", "\[DoubleStruckCapitalZ]"}], " ", 
       "\[And]", " ", 
       RowBox[{"m", "\[Element]", "\[DoubleStruckCapitalZ]"}], " ", "\[And]", 
       " ", 
       RowBox[{"p", "\[Element]", "\[DoubleStruckCapitalZ]"}]}]]]], 
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9, 
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9, 
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9}, 
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193415804486094`*^9, 
   3.5193415824298124`*^9}, {3.5193459537101994`*^9, 
   3.5193459567210045`*^9}, {3.5193514074002457`*^9, 
   3.5193514076802464`*^9}, {3.5194037987985263`*^9, 3.519403799124545*^9}, 
   3.519410735765964*^9, {3.5233155477729936`*^9, 3.5233155497329965`*^9}, {
   3.5233157343632545`*^9, 3.5233157343632545`*^9}, 3.5239204163859615`*^9, {
   3.5239209756969433`*^9, 3.523920976851345*^9}, {3.5239210574690866`*^9, 
   3.5239210738491154`*^9}, {3.529529514995768*^9, 3.52952953897301*^9}, {
   3.529530096003188*^9, 3.5295300961903887`*^9}, 3.534007429411028*^9, {
   3.5415552865111437`*^9, 3.541555295262759*^9}, 3.5416244798324237`*^9, {
   3.5416246450471644`*^9, 3.541624690056343*^9}, 3.541626366779134*^9, 
   3.541628901025448*^9, 3.5416290724956875`*^9, 3.5417936736567183`*^9, {
   3.541801799109347*^9, 3.5418018093593607`*^9}, 3.5418018795094595`*^9, 
   3.541801925819524*^9, {3.5418024417002463`*^9, 3.5418024419302464`*^9}, {
   3.5418024734002905`*^9, 3.5418024867203093`*^9}, {3.541804026542465*^9, 
   3.541804026542465*^9}, {3.5418051959141026`*^9, 3.5418051961241026`*^9}, {
   3.5418055896246533`*^9, 3.5418055898246536`*^9}, {3.541807928007927*^9, 
   3.5418079282179275`*^9}, {3.541816058189309*^9, 3.54181605834931*^9}, {
   3.541895620942338*^9, 3.5418956211823387`*^9}, {3.553299727838824*^9, 
   3.5532997300288267`*^9}, {3.5532999791891756`*^9, 
   3.5532999817291794`*^9}, {3.553305063816294*^9, 3.5533050640562944`*^9}, {
   3.5533051019963474`*^9, 3.553305104566351*^9}, {3.5533054443968267`*^9, 
   3.5533054475368314`*^9}, 3.5533078575102053`*^9, {3.5533106008040457`*^9, 
   3.5533106008040457`*^9}, {3.5546831350233016`*^9, 3.554683135273302*^9}, 
   3.560216298603896*^9, 3.5606251917417693`*^9, {3.560975839890805*^9, 
   3.560975839890805*^9}, {3.5609767760421157`*^9, 3.5609767854021287`*^9}, {
   3.560976852662223*^9, 3.560976853522224*^9}, 3.5609769271023273`*^9, {
   3.560976964532379*^9, 3.5609769756223946`*^9}, 3.5612650221567316`*^9, {
   3.561265055057189*^9, 3.561265060532799*^9}, {3.5612653477293034`*^9, 
   3.5612653496949067`*^9}, {3.561310384662383*^9, 3.5613103850223837`*^9}, 
   3.561312920465933*^9, {3.5618234264110518`*^9, 3.561823438071068*^9}, 
   3.561925865751144*^9, 3.5619260660634246`*^9, 3.5635825045499496`*^9, {
   3.5635826463301487`*^9, 3.5635826463401484`*^9}, {3.5635826884902077`*^9, 
   3.5635826884902077`*^9}, {3.5638244925399237`*^9, 3.5638245038599396`*^9}, 
   3.563996420240003*^9, {3.5639964932526054`*^9, 3.5639964939826064`*^9}, 
   3.5640145226324215`*^9, {3.564016220404798*^9, 3.5640162249248047`*^9}, {
   3.564016568695286*^9, 3.564016568695286*^9}, {3.564016788735594*^9, 
   3.564016789855595*^9}, {3.564018964066139*^9, 3.5640189837661667`*^9}, {
   3.5640195957070236`*^9, 3.564019595907024*^9}, {3.5640199524575233`*^9, 
   3.5640199694775467`*^9}, 3.5641540447309437`*^9, {3.564154076240988*^9, 
   3.56415412034105*^9}, {3.5641667095281773`*^9, 3.5641667105381784`*^9}, {
   3.564166852078377*^9, 3.564166852078377*^9}, {3.564166956508523*^9, 
   3.564166956878524*^9}, {3.5641680993101225`*^9, 3.5641681398001795`*^9}, 
   3.5820748138669624`*^9, {3.582078243945119*^9, 3.5820782445651197`*^9}, {
   3.5820826210512466`*^9, 3.582082621241247*^9}, {3.582083322402229*^9, 
   3.582083322402229*^9}, {3.58208336597229*^9, 3.5820833915223255`*^9}, 
   3.582083609742631*^9, {3.5821599562849083`*^9, 3.5821599565149083`*^9}, {
   3.5821622274480877`*^9, 3.582162227618088*^9}, {3.582240953280669*^9, 
   3.5822409535006695`*^9}, 3.5822547098796463`*^9, {3.5839689570071073`*^9, 
   3.5839689571771073`*^9}, {3.583979831268547*^9, 3.583979832214601*^9}, {
   3.5841990598090887`*^9, 3.5841990976391554`*^9}, {3.584206915119059*^9, 
   3.584206929679079*^9}, {3.5843178906590095`*^9, 3.5843178925466127`*^9}, {
   3.5843199525302305`*^9, 3.584319964963453*^9}, {3.584320004977523*^9, 
   3.5843200172703447`*^9}, {3.584384665944253*^9, 3.5843846680242558`*^9}, {
   3.5843867869172225`*^9, 3.5843867898572264`*^9}, {3.584386822887273*^9, 
   3.5843868311772842`*^9}, {3.5843939269014044`*^9, 
   3.5843939283914065`*^9}, {3.584396558984169*^9, 3.584396611514242*^9}, 
   3.611003449905646*^9, 3.6110044404449854`*^9, {3.611014138544061*^9, 
   3.611014143021269*^9}, 3.612115250958517*^9, {3.61766111905355*^9, 
   3.617661120573636*^9}, 3.6176612463798323`*^9, 3.6176613963954124`*^9, {
   3.617661465739379*^9, 3.6176614699096174`*^9}, {3.6176615189894247`*^9, 
   3.617661523686693*^9}, {3.617661654139155*^9, 3.6176616672309036`*^9}, {
   3.6176619499440737`*^9, 3.6176619526192265`*^9}, {3.6179901253007936`*^9, 
   3.61799013624242*^9}, {3.617990224696479*^9, 3.6179902449546375`*^9}, {
   3.625254899880661*^9, 3.6252549271651087`*^9}, 3.6260259990538197`*^9, {
   3.6260263746088796`*^9, 3.6260263819720926`*^9}, {3.6260265944444656`*^9, 
   3.6260266181565075`*^9}, 3.626026666064192*^9, 3.6260278845202627`*^9, {
   3.630171621473917*^9, 3.630171621473917*^9}, 3.6301716818062415`*^9, {
   3.664299397158537*^9, 3.6642994013147745`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Algebraic normalization", "Subsubsection",
 CellChangeTimes->{
  3.479686820458373*^9, {3.490657960122612*^9, 3.49065796095366*^9}, 
   3.4964414996009283`*^9, {3.4964447088058186`*^9, 3.4964447131058245`*^9}, 
   3.496528844063812*^9, 3.497575950496916*^9, 3.4975775797018027`*^9, 
   3.497639496888481*^9, 3.4976636252234545`*^9, 3.497665167504564*^9, {
   3.561226054703641*^9, 3.5612260578536453`*^9}, {3.564014697112665*^9, 
   3.5640146992226686`*^9}, {3.564014729972711*^9, 3.564014741602728*^9}, 
   3.564154158611103*^9, {3.6252549507211504`*^9, 3.6252549526711535`*^9}, 
   3.6254347678314524`*^9}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"a", "+", 
    RowBox[{"b", " ", 
     RowBox[{"Tan", "[", "z", "]"}]}]}], "\[Equal]", 
   FractionBox[
    RowBox[{"b", "+", 
     RowBox[{"a", " ", 
      RowBox[{"Cot", "[", "z", "]"}]}]}], 
    RowBox[{"Cot", "[", "z", "]"}]]}]],
  CellChangeTimes->{{3.6252550900937953`*^9, 3.6252551495650997`*^9}}]
}], "Subsubsection",
 CellChangeTimes->{
  3.479686820458373*^9, {3.490657960122612*^9, 3.49065796095366*^9}, 
   3.4964414996009283`*^9, {3.4964447088058186`*^9, 3.4964447131058245`*^9}, 
   3.496528844063812*^9, 3.497575950496916*^9, 3.4975775797018027`*^9, 
   3.497639496888481*^9, 3.4976636252234545`*^9, 3.497665167504564*^9, {
   3.561226054703641*^9, 3.5612260578536453`*^9}, {3.564014697112665*^9, 
   3.5640146992226686`*^9}, {3.564014729972711*^9, 3.564014741602728*^9}, 
   3.564154158611103*^9, {3.6252549507211504`*^9, 3.6252549526711535`*^9}, {
   3.6252551596895175`*^9, 3.62525516669593*^9}, {3.6260264917338853`*^9, 
   3.6260264917338853`*^9}, {3.630171621489517*^9, 3.630171621489517*^9}, {
   3.6301716818218417`*^9, 3.6301716818218417`*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"n", "\[NotElement]", "\[DoubleStruckCapitalZ]"}], " ", "\[And]", 
   " ", 
   RowBox[{"m", "\[Element]", "\[DoubleStruckCapitalZ]"}], " ", "\[And]", " ", 
   RowBox[{"p", "\[Element]", "\[DoubleStruckCapitalZ]"}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, 
   3.4976397903561964`*^9, {3.497663553088928*^9, 3.4976635622149444`*^9}, 
   3.4976651743061757`*^9, {3.4991317949832096`*^9, 3.4991317953032103`*^9}, {
   3.561226279503955*^9, 3.5612262831739607`*^9}, {3.5612263210940137`*^9, 
   3.5612263409240413`*^9}, {3.561227979331335*^9, 3.561227980911338*^9}, {
   3.561309917491729*^9, 3.561309917491729*^9}, {3.561422840120915*^9, 
   3.561422840120915*^9}, {3.5635826847702026`*^9, 3.5635826847702026`*^9}, {
   3.563824156349453*^9, 3.563824156349453*^9}, {3.563909210116375*^9, 
   3.563909210116375*^9}, {3.563911783029977*^9, 3.563911783029977*^9}, {
   3.5640165541752653`*^9, 3.5640165541752653`*^9}, {3.564019413056768*^9, 
   3.564019413056768*^9}, {3.5640199771975574`*^9, 3.5640199771975574`*^9}, {
   3.564154196931157*^9, 3.564154196931157*^9}, {3.564167082448699*^9, 
   3.564167082448699*^9}, {3.5641684276805825`*^9, 3.564168427840583*^9}, {
   3.582078253155132*^9, 3.5820782535851326`*^9}, {3.5820833259922338`*^9, 
   3.5820833259922338`*^9}, 3.5842070099091916`*^9, {3.584320156562989*^9, 
   3.584320159558194*^9}, 3.5843202257491107`*^9, {3.584386845867305*^9, 
   3.584386845867305*^9}, {3.584393964501457*^9, 3.584393964501457*^9}, {
   3.584396627384265*^9, 3.584396627384265*^9}, {3.6176615246387477`*^9, 
   3.617661526902877*^9}, {3.617661672431201*^9, 3.6176616729982333`*^9}, {
   3.6176619563584404`*^9, 3.617661961450732*^9}, {3.6179902549452095`*^9, 
   3.6179902549452095`*^9}, {3.6252549461815424`*^9, 3.6252549461815424`*^9}, 
   3.6258627332893004`*^9, {3.6260263994597235`*^9, 3.6260263994597235`*^9}, {
   3.626026630558529*^9, 3.626026630558529*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"Tan", "[", 
     RowBox[{"e", "+", 
      RowBox[{"f", " ", "x"}]}], "]"}], "p"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       RowBox[{"Tan", "[", 
        RowBox[{"e", "+", 
         RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}], "m"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"c", "+", 
      RowBox[{"d", " ", 
       RowBox[{"Cot", "[", 
        RowBox[{"e", "+", 
         RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}], "n"], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
     RowBox[{"\[Integral]", 
      RowBox[{
       FractionBox[
        RowBox[{
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"b", "+", 
            RowBox[{"a", " ", 
             RowBox[{"Cot", "[", 
              RowBox[{"e", "+", 
               RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}], "m"], " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"c", "+", 
            RowBox[{"d", " ", 
             RowBox[{"Cot", "[", 
              RowBox[{"e", "+", 
               RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}], "n"]}], 
        SuperscriptBox[
         RowBox[{"Cot", "[", 
          RowBox[{"e", "+", 
           RowBox[{"f", " ", "x"}]}], "]"}], 
         RowBox[{"m", "+", "p"}]]], " ", 
       RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579723816*^9, 3.4796580261689425`*^9}, 
   3.479661191290163*^9, {3.479686720164157*^9, 3.479686720204214*^9}, {
   3.479686831554328*^9, 3.479686834819022*^9}, {3.4940970712485504`*^9, 
   3.4940971130286083`*^9}, 3.4940971455886545`*^9, 3.49644160092107*^9, 
   3.496441663571158*^9, {3.496528814953771*^9, 3.4965288223737817`*^9}, 
   3.497576045657049*^9, 3.497576089857111*^9, 3.4975776169418545`*^9, {
   3.497577677171939*^9, 3.497577691381959*^9}, {3.4976395112561064`*^9, 
   3.4976395477133703`*^9}, {3.49766342891271*^9, 3.497663457772761*^9}, {
   3.497663580747777*^9, 3.497663583134581*^9}, {3.4976652106074395`*^9, 
   3.4976652204666567`*^9}, 3.4976652749419527`*^9, {3.4991316095329504`*^9, 
   3.4991316274529753`*^9}, {3.4991318033632216`*^9, 3.499131806573226*^9}, {
   3.56122609003369*^9, 3.5612261336137514`*^9}, {3.5612261841238217`*^9, 
   3.561226212973862*^9}, {3.561226245623908*^9, 3.561226251553916*^9}, 
   3.5612273551154613`*^9, {3.56126513522573*^9, 3.56126525479994*^9}, {
   3.5612652963584127`*^9, 3.5612653308188734`*^9}, 3.561925867011146*^9, 
   3.561926066683426*^9, {3.5635826463801484`*^9, 3.563582646420149*^9}, {
   3.563582693780215*^9, 3.5635826949302163`*^9}, 3.5635835835414605`*^9, 
   3.5635836156015053`*^9, {3.5638245154999557`*^9, 3.5638245234999666`*^9}, {
   3.564014524482424*^9, 3.564014526282426*^9}, {3.5640149915030775`*^9, 
   3.564015054033165*^9}, {3.564019055216267*^9, 3.56401910007633*^9}, 
   3.5640192778865786`*^9, {3.564154176241128*^9, 3.5641541887011456`*^9}, {
   3.5641542645912514`*^9, 3.564154314201321*^9}, {3.5641677295096054`*^9, 
   3.5641677311696076`*^9}, {3.5641683163004265`*^9, 3.5641684101405582`*^9}, 
   3.582074813876962*^9, 3.582078262695145*^9, {3.5820828317615423`*^9, 
   3.582082858171579*^9}, {3.584206946559103*^9, 3.5842069983391757`*^9}, {
   3.6110140782187552`*^9, 3.6110141081240077`*^9}, {3.6176611212376747`*^9, 
   3.617661123581808*^9}, 3.617661246891862*^9, {3.617661396914442*^9, 
   3.617661397906499*^9}, {3.6176614835944*^9, 3.6176614850024805`*^9}, {
   3.617661527580916*^9, 3.617661528996997*^9}, {3.6176616793625975`*^9, 
   3.617661689811195*^9}, {3.6176619731494007`*^9, 3.6176619772106333`*^9}, 
   3.6176620315487413`*^9, {3.61799013047509*^9, 3.617990210472666*^9}, {
   3.6252549598159666`*^9, 3.625255008082451*^9}, {3.62525518355956*^9, 
   3.6252551975703845`*^9}, {3.6260260073062344`*^9, 3.626026083403168*^9}, {
   3.626026449785412*^9, 3.626026455963022*^9}, 3.626026676110609*^9, {
   3.6260267359523144`*^9, 3.626026804233634*^9}, {3.630171621489517*^9, 
   3.630171621489517*^9}, {3.6301716818374414`*^9, 3.6301716818530416`*^9}, 
   3.6642994164996433`*^9},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"tan", "[", 
       RowBox[{"e_.", "+", 
        RowBox[{"f_.", "*", "x_"}]}], "]"}], "^", "p_."}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_", "+", 
        RowBox[{"b_.", "*", 
         RowBox[{"tan", "[", 
          RowBox[{"e_.", "+", 
           RowBox[{"f_.", "*", "x_"}]}], "]"}]}]}], ")"}], "^", "m_."}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"c_", "+", 
        RowBox[{"d_.", "*", 
         RowBox[{"cot", "[", 
          RowBox[{"e_.", "+", 
           RowBox[{"f_.", "*", "x_"}]}], "]"}]}]}], ")"}], "^", "n_"}]}], ",",
     "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{"Int", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"b", "+", 
         RowBox[{"a", "*", 
          RowBox[{"Cot", "[", 
           RowBox[{"e", "+", 
            RowBox[{"f", "*", "x"}]}], "]"}]}]}], ")"}], "^", "m"}], "*", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"c", "+", 
          RowBox[{"d", "*", 
           RowBox[{"Cot", "[", 
            RowBox[{"e", "+", 
             RowBox[{"f", "*", "x"}]}], "]"}]}]}], ")"}], "^", "n"}], "/", 
       RowBox[{
        RowBox[{"Cot", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", "*", "x"}]}], "]"}], "^", 
        RowBox[{"(", 
         RowBox[{"m", "+", "p"}], ")"}]}]}]}], ",", "x"}], "]"}], " ", "/;", 
   "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "f", ",", "n"}], 
       "}"}], ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"Not", "[", 
     RowBox[{"IntegerQ", "[", "n", "]"}], "]"}], " ", "&&", " ", 
    RowBox[{"IntegerQ", "[", "m", "]"}], " ", "&&", " ", 
    RowBox[{"IntegerQ", "[", "p", "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, {
   3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.4964415782510386`*^9, 
   3.4965287890937347`*^9, 3.4975759366868963`*^9, 3.497577547811758*^9, 
   3.49758349857209*^9, 3.4976394822868557`*^9, 3.497663384967433*^9, {
   3.4976635889065914`*^9, 3.497663592322997*^9}, 3.4976651612957525`*^9, {
   3.49913160954295*^9, 3.4991316274529753`*^9}, 3.4991317842431946`*^9, 
   3.5609702671974792`*^9, 3.5609704436320634`*^9, {3.561226361824071*^9, 
   3.5612263834141006`*^9}, {3.561226446604189*^9, 3.5612264740842276`*^9}, 
   3.561227358565466*^9, 3.5612660745725803`*^9, {3.561266323049816*^9, 
   3.5612663247502193`*^9}, 3.561823480361127*^9, 3.5619257938670425`*^9, {
   3.5635826464301486`*^9, 3.563582646460149*^9}, {3.563582721180253*^9, 
   3.5635827226602554`*^9}, {3.5635836233415165`*^9, 3.5635836280515227`*^9}, 
   3.563584203162328*^9, 3.563644669371813*^9, 3.563644704315811*^9, {
   3.5638245279199734`*^9, 3.563824545659998*^9}, {3.563996501312617*^9, 
   3.5639965021226177`*^9}, 3.5640151672533236`*^9, {3.564015204023375*^9, 
   3.5640152046433764`*^9}, {3.5640166062553377`*^9, 
   3.5640166601854134`*^9}, {3.564016745825534*^9, 3.564016746265534*^9}, {
   3.564019332176655*^9, 3.564019332546655*^9}, 3.5640193817967243`*^9, {
   3.564019416336773*^9, 3.5640194301967916`*^9}, 3.5640199927075796`*^9, {
   3.564154339701357*^9, 3.5641543844814196`*^9}, 3.5641544420215*^9, {
   3.5641546152117424`*^9, 3.5641546240217547`*^9}, 3.5641564421893005`*^9, {
   3.564167088218707*^9, 3.564167101428726*^9}, {3.5641677394296193`*^9, 
   3.564167746619629*^9}, {3.5641684407006006`*^9, 3.5641684626606317`*^9}, 
   3.5641684997606835`*^9, {3.564168825763942*^9, 3.5641688320939507`*^9}, 
   3.5820748526170163`*^9, {3.582078274615162*^9, 3.5820782798951693`*^9}, {
   3.582083033351824*^9, 3.58208306612187*^9}, {3.582083167742012*^9, 
   3.5820831686420135`*^9}, {3.582083332492243*^9, 3.582083339112252*^9}, {
   3.5821561036655016`*^9, 3.5821561075455065`*^9}, {3.5821622139880686`*^9, 
   3.5821622165080724`*^9}, {3.5839688892170124`*^9, 3.583968894157019*^9}, {
   3.583969775192754*^9, 3.5839697777927575`*^9}, {3.5841989851005573`*^9, 
   3.5841990065505953`*^9}, {3.5841991133327827`*^9, 3.584199114331185*^9}, 
   3.5842009139659452`*^9, 3.5842042715895386`*^9, 3.584206850848969*^9, {
   3.58420703050922*^9, 3.5842071033893223`*^9}, {3.584207134499366*^9, 
   3.5842071364993687`*^9}, 3.584317765094389*^9, {3.5843200969864845`*^9, 
   3.5843201056757*^9}, {3.584320148497775*^9, 3.5843201959998584`*^9}, {
   3.584384655714239*^9, 3.584384658934243*^9}, {3.5843866899770865`*^9, 
   3.5843866955570946`*^9}, 3.584393498600805*^9, {3.584393535030856*^9, 
   3.584393597040943*^9}, {3.5843945851123734`*^9, 3.5843946011923957`*^9}, {
   3.58439464740246*^9, 3.584394647582461*^9}, {3.5843960850835056`*^9, 
   3.584396126983564*^9}, {3.6110141535044875`*^9, 3.6110141715693192`*^9}, {
   3.611014210085787*^9, 3.6110142366370335`*^9}, {3.6176611652811937`*^9, 
   3.6176611974890356`*^9}, {3.6176615323501887`*^9, 3.617661543085803*^9}, {
   3.6176616965165787`*^9, 3.617661718141815*^9}, 3.6176620913981647`*^9, {
   3.61766213537068*^9, 3.6176621845514927`*^9}, {3.6176622187504487`*^9, 
   3.617662252370372*^9}, {3.6176623292977715`*^9, 3.6176623350581007`*^9}, {
   3.617990335788833*^9, 3.617990346965472*^9}, {3.617990400723547*^9, 
   3.6179904273370695`*^9}, {3.618023650313898*^9, 3.618023660959507*^9}, {
   3.6180792624265423`*^9, 3.6180792706150103`*^9}, {3.625255237617655*^9, 
   3.6252552896633463`*^9}, {3.6252553537834597`*^9, 3.625255374593896*^9}, 
   3.6254347894714823`*^9, {3.625434873808601*^9, 3.625434875968604*^9}, 
   3.62586285194851*^9, {3.626026150374086*^9, 3.6260261718397236`*^9}, {
   3.6260262071425858`*^9, 3.6260262258782187`*^9}, {3.626026403749731*^9, 
   3.626026427680173*^9}, {3.6260266332261343`*^9, 3.626026643568952*^9}, {
   3.626026837617693*^9, 3.6260268532489204`*^9}, {3.626026948946742*^9, 
   3.626026951766746*^9}, {3.63017163698416*^9, 3.63017163699976*^9}, {
   3.6301716818530416`*^9, 3.630171681868642*^9}, 3.6301717496245613`*^9, {
   3.6642994310684767`*^9, 3.664299435904753*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t", 
  RowBox[{Cell[TextData[StyleBox["2:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"g", " ", 
        RowBox[{"Tan", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "p"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         RowBox[{"Tan", "[", 
          RowBox[{"e", "+", 
           RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}], "m"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"c", "+", 
        RowBox[{"d", " ", 
         RowBox[{"Cot", "[", 
          RowBox[{"e", "+", 
           RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}], "n"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], " ", Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{"n", "\[NotElement]", "\[DoubleStruckCapitalZ]"}], " ", 
       "\[And]", " ", 
       RowBox[{"m", "\[Element]", "\[DoubleStruckCapitalZ]"}], " ", "\[And]", 
       " ", 
       RowBox[{"p", "\[NotElement]", "\[DoubleStruckCapitalZ]"}]}]]]], 
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9, 
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9, 
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9}, 
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193415804486094`*^9, 
   3.5193415824298124`*^9}, {3.5193459537101994`*^9, 
   3.5193459567210045`*^9}, {3.5193514074002457`*^9, 
   3.5193514076802464`*^9}, {3.5194037987985263`*^9, 3.519403799124545*^9}, 
   3.519410735765964*^9, {3.5233155477729936`*^9, 3.5233155497329965`*^9}, {
   3.5233157343632545`*^9, 3.5233157343632545`*^9}, 3.5239204163859615`*^9, {
   3.5239209756969433`*^9, 3.523920976851345*^9}, {3.5239210574690866`*^9, 
   3.5239210738491154`*^9}, {3.529529514995768*^9, 3.52952953897301*^9}, {
   3.529530096003188*^9, 3.5295300961903887`*^9}, 3.534007429411028*^9, {
   3.5415552865111437`*^9, 3.541555295262759*^9}, 3.5416244798324237`*^9, {
   3.5416246450471644`*^9, 3.541624690056343*^9}, 3.541626366779134*^9, 
   3.541628901025448*^9, 3.5416290724956875`*^9, 3.5417936736567183`*^9, {
   3.541801799109347*^9, 3.5418018093593607`*^9}, 3.5418018795094595`*^9, 
   3.541801925819524*^9, {3.5418024417002463`*^9, 3.5418024419302464`*^9}, {
   3.5418024734002905`*^9, 3.5418024867203093`*^9}, {3.541804026542465*^9, 
   3.541804026542465*^9}, {3.5418051959141026`*^9, 3.5418051961241026`*^9}, {
   3.5418055896246533`*^9, 3.5418055898246536`*^9}, {3.541807928007927*^9, 
   3.5418079282179275`*^9}, {3.541816058189309*^9, 3.54181605834931*^9}, {
   3.541895620942338*^9, 3.5418956211823387`*^9}, {3.553299727838824*^9, 
   3.5532997300288267`*^9}, {3.5532999791891756`*^9, 
   3.5532999817291794`*^9}, {3.553305063816294*^9, 3.5533050640562944`*^9}, {
   3.5533051019963474`*^9, 3.553305104566351*^9}, {3.5533054443968267`*^9, 
   3.5533054475368314`*^9}, 3.5533078575102053`*^9, {3.5533106008040457`*^9, 
   3.5533106008040457`*^9}, {3.5546831350233016`*^9, 3.554683135273302*^9}, 
   3.560216298603896*^9, 3.5606251917417693`*^9, {3.560975839890805*^9, 
   3.560975839890805*^9}, {3.5609767760421157`*^9, 3.5609767854021287`*^9}, {
   3.560976852662223*^9, 3.560976853522224*^9}, 3.5609769271023273`*^9, {
   3.560976964532379*^9, 3.5609769756223946`*^9}, 3.5612650221567316`*^9, {
   3.561265055057189*^9, 3.561265060532799*^9}, {3.5612653477293034`*^9, 
   3.5612653496949067`*^9}, {3.561310384662383*^9, 3.5613103850223837`*^9}, 
   3.561312920465933*^9, {3.5618234264110518`*^9, 3.561823438071068*^9}, 
   3.561925865751144*^9, 3.5619260660634246`*^9, 3.5635825045499496`*^9, {
   3.5635826463301487`*^9, 3.5635826463401484`*^9}, {3.5635826884902077`*^9, 
   3.5635826884902077`*^9}, {3.5638244925399237`*^9, 3.5638245038599396`*^9}, 
   3.563996420240003*^9, {3.5639964932526054`*^9, 3.5639964939826064`*^9}, 
   3.5640145226324215`*^9, {3.564016220404798*^9, 3.5640162249248047`*^9}, {
   3.564016568695286*^9, 3.564016568695286*^9}, {3.564016788735594*^9, 
   3.564016789855595*^9}, {3.564018964066139*^9, 3.5640189837661667`*^9}, {
   3.5640195957070236`*^9, 3.564019595907024*^9}, {3.5640199524575233`*^9, 
   3.5640199694775467`*^9}, 3.5641540447309437`*^9, {3.564154076240988*^9, 
   3.56415412034105*^9}, {3.5641667095281773`*^9, 3.5641667105381784`*^9}, {
   3.564166852078377*^9, 3.564166852078377*^9}, {3.564166956508523*^9, 
   3.564166956878524*^9}, {3.5641680993101225`*^9, 3.5641681398001795`*^9}, 
   3.5820748138669624`*^9, {3.582078243945119*^9, 3.5820782445651197`*^9}, {
   3.5820826210512466`*^9, 3.582082621241247*^9}, {3.582083322402229*^9, 
   3.582083322402229*^9}, {3.58208336597229*^9, 3.5820833915223255`*^9}, 
   3.582083609742631*^9, {3.5821599562849083`*^9, 3.5821599565149083`*^9}, {
   3.5821622274480877`*^9, 3.582162227618088*^9}, {3.582240953280669*^9, 
   3.5822409535006695`*^9}, 3.5822547098796463`*^9, {3.5839689570071073`*^9, 
   3.5839689571771073`*^9}, {3.583979831268547*^9, 3.583979832214601*^9}, {
   3.5841990598090887`*^9, 3.5841990976391554`*^9}, {3.584206915119059*^9, 
   3.584206929679079*^9}, {3.5843178906590095`*^9, 3.5843178925466127`*^9}, {
   3.5843199525302305`*^9, 3.584319964963453*^9}, {3.584320004977523*^9, 
   3.5843200172703447`*^9}, {3.584384665944253*^9, 3.5843846680242558`*^9}, {
   3.5843867869172225`*^9, 3.5843867898572264`*^9}, {3.584386822887273*^9, 
   3.5843868311772842`*^9}, {3.5843939269014044`*^9, 
   3.5843939283914065`*^9}, {3.584396558984169*^9, 3.584396611514242*^9}, 
   3.611003449905646*^9, 3.6110044404449854`*^9, {3.611014138544061*^9, 
   3.611014143021269*^9}, 3.612115250958517*^9, {3.61766111905355*^9, 
   3.617661120573636*^9}, 3.6176612463798323`*^9, 3.6176613963954124`*^9, {
   3.617661465739379*^9, 3.6176614699096174`*^9}, {3.6176615189894247`*^9, 
   3.617661523686693*^9}, {3.617661654139155*^9, 3.6176616672309036`*^9}, {
   3.6176619499440737`*^9, 3.6176619526192265`*^9}, {3.6179901253007936`*^9, 
   3.61799013624242*^9}, {3.617990224696479*^9, 3.6179902449546375`*^9}, {
   3.625254899880661*^9, 3.6252549271651087`*^9}, 3.6260259990538197`*^9, {
   3.6260263746088796`*^9, 3.6260263819720926`*^9}, {3.6260265944444656`*^9, 
   3.6260266181565075`*^9}, 3.626026666064192*^9, {3.626027079092928*^9, 
   3.626027085682937*^9}, 3.6260271242129917`*^9, 3.6260278850202637`*^9, {
   3.6301716215051174`*^9, 3.6301716215051174`*^9}, 3.630171681884242*^9, 
   3.664299379619534*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["\<\
Derivation: Algebraic normalization and piecewise constant extraction\
\>", "Subsubsection",
 CellChangeTimes->{
  3.479686820458373*^9, {3.490657960122612*^9, 3.49065796095366*^9}, 
   3.4964414996009283`*^9, {3.4964447088058186`*^9, 3.4964447131058245`*^9}, 
   3.496528844063812*^9, 3.497575950496916*^9, 3.4975775797018027`*^9, 
   3.497639496888481*^9, 3.4976636252234545`*^9, 3.497665167504564*^9, {
   3.561226054703641*^9, 3.5612260578536453`*^9}, {3.564014697112665*^9, 
   3.5640146992226686`*^9}, {3.564014729972711*^9, 3.564014741602728*^9}, 
   3.564154158611103*^9, {3.6252549507211504`*^9, 3.6252549526711535`*^9}, 
   3.6254347678314524`*^9, {3.626027165932051*^9, 3.6260271763800664`*^9}}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"a", "+", 
    RowBox[{"b", " ", 
     RowBox[{"Tan", "[", "z", "]"}]}]}], "\[Equal]", 
   FractionBox[
    RowBox[{"b", "+", 
     RowBox[{"a", " ", 
      RowBox[{"Cot", "[", "z", "]"}]}]}], 
    RowBox[{"Cot", "[", "z", "]"}]]}]],
  CellChangeTimes->{{3.6252550900937953`*^9, 3.6252551495650997`*^9}}]
}], "Subsubsection",
 CellChangeTimes->{
  3.479686820458373*^9, {3.490657960122612*^9, 3.49065796095366*^9}, 
   3.4964414996009283`*^9, {3.4964447088058186`*^9, 3.4964447131058245`*^9}, 
   3.496528844063812*^9, 3.497575950496916*^9, 3.4975775797018027`*^9, 
   3.497639496888481*^9, 3.4976636252234545`*^9, 3.497665167504564*^9, {
   3.561226054703641*^9, 3.5612260578536453`*^9}, {3.564014697112665*^9, 
   3.5640146992226686`*^9}, {3.564014729972711*^9, 3.564014741602728*^9}, 
   3.564154158611103*^9, {3.6252549507211504`*^9, 3.6252549526711535`*^9}, {
   3.6252551596895175`*^9, 3.62525516669593*^9}, {3.6260264917338853`*^9, 
   3.6260264917338853`*^9}, {3.6301716215207176`*^9, 
   3.6301716215207176`*^9}, {3.630171681884242*^9, 3.630171681899842*^9}}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SubscriptBox["\[PartialD]", "x"], 
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"Cot", "[", 
        RowBox[{"e", "+", 
         RowBox[{"f", " ", "x"}]}], "]"}], "p"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"g", " ", 
         RowBox[{"Tan", "[", 
          RowBox[{"e", "+", 
           RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "p"]}], ")"}]}], 
   "\[Equal]", "0"}]],
  CellChangeTimes->{{3.6252550900937953`*^9, 3.6252551495650997`*^9}}]
}], "Subsubsection",
 CellChangeTimes->{
  3.479686820458373*^9, {3.490657960122612*^9, 3.49065796095366*^9}, 
   3.4964414996009283`*^9, {3.4964447088058186`*^9, 3.4964447131058245`*^9}, 
   3.496528844063812*^9, 3.497575950496916*^9, 3.4975775797018027`*^9, 
   3.497639496888481*^9, 3.4976636252234545`*^9, 3.497665167504564*^9, {
   3.561226054703641*^9, 3.5612260578536453`*^9}, {3.564014697112665*^9, 
   3.5640146992226686`*^9}, {3.564014729972711*^9, 3.564014741602728*^9}, 
   3.564154158611103*^9, {3.6252549507211504`*^9, 3.6252549526711535`*^9}, {
   3.6252551596895175`*^9, 3.62525516669593*^9}, {3.6260264917338853`*^9, 
   3.6260264917338853`*^9}, {3.626027198282098*^9, 3.626027198282098*^9}, {
   3.6301716215207176`*^9, 3.6301716215207176`*^9}, {3.630171681899842*^9, 
   3.630171681899842*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"n", "\[NotElement]", "\[DoubleStruckCapitalZ]"}], " ", "\[And]", 
   " ", 
   RowBox[{"m", "\[Element]", "\[DoubleStruckCapitalZ]"}], " ", "\[And]", " ", 
   RowBox[{"p", "\[NotElement]", "\[DoubleStruckCapitalZ]"}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, 
   3.4976397903561964`*^9, {3.497663553088928*^9, 3.4976635622149444`*^9}, 
   3.4976651743061757`*^9, {3.4991317949832096`*^9, 3.4991317953032103`*^9}, {
   3.561226279503955*^9, 3.5612262831739607`*^9}, {3.5612263210940137`*^9, 
   3.5612263409240413`*^9}, {3.561227979331335*^9, 3.561227980911338*^9}, {
   3.561309917491729*^9, 3.561309917491729*^9}, {3.561422840120915*^9, 
   3.561422840120915*^9}, {3.5635826847702026`*^9, 3.5635826847702026`*^9}, {
   3.563824156349453*^9, 3.563824156349453*^9}, {3.563909210116375*^9, 
   3.563909210116375*^9}, {3.563911783029977*^9, 3.563911783029977*^9}, {
   3.5640165541752653`*^9, 3.5640165541752653`*^9}, {3.564019413056768*^9, 
   3.564019413056768*^9}, {3.5640199771975574`*^9, 3.5640199771975574`*^9}, {
   3.564154196931157*^9, 3.564154196931157*^9}, {3.564167082448699*^9, 
   3.564167082448699*^9}, {3.5641684276805825`*^9, 3.564168427840583*^9}, {
   3.582078253155132*^9, 3.5820782535851326`*^9}, {3.5820833259922338`*^9, 
   3.5820833259922338`*^9}, 3.5842070099091916`*^9, {3.584320156562989*^9, 
   3.584320159558194*^9}, 3.5843202257491107`*^9, {3.584386845867305*^9, 
   3.584386845867305*^9}, {3.584393964501457*^9, 3.584393964501457*^9}, {
   3.584396627384265*^9, 3.584396627384265*^9}, {3.6176615246387477`*^9, 
   3.617661526902877*^9}, {3.617661672431201*^9, 3.6176616729982333`*^9}, {
   3.6176619563584404`*^9, 3.617661961450732*^9}, {3.6179902549452095`*^9, 
   3.6179902549452095`*^9}, {3.6252549461815424`*^9, 3.6252549461815424`*^9}, 
   3.6258627332893004`*^9, {3.6260263994597235`*^9, 3.6260263994597235`*^9}, {
   3.626026630558529*^9, 3.626026630558529*^9}, {3.626027095312951*^9, 
   3.626027095312951*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"g", " ", 
      RowBox[{"Tan", "[", 
       RowBox[{"e", "+", 
        RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "p"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       RowBox[{"Tan", "[", 
        RowBox[{"e", "+", 
         RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}], "m"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"c", "+", 
      RowBox[{"d", " ", 
       RowBox[{"Cot", "[", 
        RowBox[{"e", "+", 
         RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}], "n"], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
     SuperscriptBox[
      RowBox[{"Cot", "[", 
       RowBox[{"e", "+", 
        RowBox[{"f", " ", "x"}]}], "]"}], "p"]}]}], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"g", " ", 
      RowBox[{"Tan", "[", 
       RowBox[{"e", "+", 
        RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "p"], 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox[
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"b", "+", 
          RowBox[{"a", " ", 
           RowBox[{"Cot", "[", 
            RowBox[{"e", "+", 
             RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}], "m"], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"c", "+", 
          RowBox[{"d", " ", 
           RowBox[{"Cot", "[", 
            RowBox[{"e", "+", 
             RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}], "n"]}], 
      SuperscriptBox[
       RowBox[{"Cot", "[", 
        RowBox[{"e", "+", 
         RowBox[{"f", " ", "x"}]}], "]"}], 
       RowBox[{"m", "+", "p"}]]], " ", 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579723816*^9, 3.4796580261689425`*^9}, 
   3.479661191290163*^9, {3.479686720164157*^9, 3.479686720204214*^9}, {
   3.479686831554328*^9, 3.479686834819022*^9}, {3.4940970712485504`*^9, 
   3.4940971130286083`*^9}, 3.4940971455886545`*^9, 3.49644160092107*^9, 
   3.496441663571158*^9, {3.496528814953771*^9, 3.4965288223737817`*^9}, 
   3.497576045657049*^9, 3.497576089857111*^9, 3.4975776169418545`*^9, {
   3.497577677171939*^9, 3.497577691381959*^9}, {3.4976395112561064`*^9, 
   3.4976395477133703`*^9}, {3.49766342891271*^9, 3.497663457772761*^9}, {
   3.497663580747777*^9, 3.497663583134581*^9}, {3.4976652106074395`*^9, 
   3.4976652204666567`*^9}, 3.4976652749419527`*^9, {3.4991316095329504`*^9, 
   3.4991316274529753`*^9}, {3.4991318033632216`*^9, 3.499131806573226*^9}, {
   3.56122609003369*^9, 3.5612261336137514`*^9}, {3.5612261841238217`*^9, 
   3.561226212973862*^9}, {3.561226245623908*^9, 3.561226251553916*^9}, 
   3.5612273551154613`*^9, {3.56126513522573*^9, 3.56126525479994*^9}, {
   3.5612652963584127`*^9, 3.5612653308188734`*^9}, 3.561925867011146*^9, 
   3.561926066683426*^9, {3.5635826463801484`*^9, 3.563582646420149*^9}, {
   3.563582693780215*^9, 3.5635826949302163`*^9}, 3.5635835835414605`*^9, 
   3.5635836156015053`*^9, {3.5638245154999557`*^9, 3.5638245234999666`*^9}, {
   3.564014524482424*^9, 3.564014526282426*^9}, {3.5640149915030775`*^9, 
   3.564015054033165*^9}, {3.564019055216267*^9, 3.56401910007633*^9}, 
   3.5640192778865786`*^9, {3.564154176241128*^9, 3.5641541887011456`*^9}, {
   3.5641542645912514`*^9, 3.564154314201321*^9}, {3.5641677295096054`*^9, 
   3.5641677311696076`*^9}, {3.5641683163004265`*^9, 3.5641684101405582`*^9}, 
   3.582074813876962*^9, 3.582078262695145*^9, {3.5820828317615423`*^9, 
   3.582082858171579*^9}, {3.584206946559103*^9, 3.5842069983391757`*^9}, {
   3.6110140782187552`*^9, 3.6110141081240077`*^9}, {3.6176611212376747`*^9, 
   3.617661123581808*^9}, 3.617661246891862*^9, {3.617661396914442*^9, 
   3.617661397906499*^9}, {3.6176614835944*^9, 3.6176614850024805`*^9}, {
   3.617661527580916*^9, 3.617661528996997*^9}, {3.6176616793625975`*^9, 
   3.617661689811195*^9}, {3.6176619731494007`*^9, 3.6176619772106333`*^9}, 
   3.6176620315487413`*^9, {3.61799013047509*^9, 3.617990210472666*^9}, {
   3.6252549598159666`*^9, 3.625255008082451*^9}, {3.62525518355956*^9, 
   3.6252551975703845`*^9}, {3.6260260073062344`*^9, 3.626026083403168*^9}, {
   3.626026449785412*^9, 3.626026455963022*^9}, 3.626026676110609*^9, {
   3.6260267359523144`*^9, 3.626026804233634*^9}, 3.6260271290929985`*^9, 
   3.6260272080491114`*^9, {3.6301716215363173`*^9, 3.6301716215519176`*^9}, {
   3.6301716819154415`*^9, 3.6301716819310417`*^9}, 3.6642993828447185`*^9},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"g_.", "*", 
        RowBox[{"tan", "[", 
         RowBox[{"e_.", "+", 
          RowBox[{"f_.", "*", "x_"}]}], "]"}]}], ")"}], "^", "p_"}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_", "+", 
        RowBox[{"b_.", "*", 
         RowBox[{"tan", "[", 
          RowBox[{"e_.", "+", 
           RowBox[{"f_.", "*", "x_"}]}], "]"}]}]}], ")"}], "^", "m_."}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"c_", "+", 
        RowBox[{"d_.", "*", 
         RowBox[{"cot", "[", 
          RowBox[{"e_.", "+", 
           RowBox[{"f_.", "*", "x_"}]}], "]"}]}]}], ")"}], "^", "n_"}]}], ",",
     "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"Cot", "[", 
      RowBox[{"e", "+", 
       RowBox[{"f", "*", "x"}]}], "]"}], "^", "p"}], "*", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"g", "*", 
       RowBox[{"Tan", "[", 
        RowBox[{"e", "+", 
         RowBox[{"f", "*", "x"}]}], "]"}]}], ")"}], "^", "p"}], "*", 
    RowBox[{"Int", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"b", "+", 
          RowBox[{"a", "*", 
           RowBox[{"Cot", "[", 
            RowBox[{"e", "+", 
             RowBox[{"f", "*", "x"}]}], "]"}]}]}], ")"}], "^", "m"}], "*", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"c", "+", 
           RowBox[{"d", "*", 
            RowBox[{"Cot", "[", 
             RowBox[{"e", "+", 
              RowBox[{"f", "*", "x"}]}], "]"}]}]}], ")"}], "^", "n"}], "/", 
        RowBox[{
         RowBox[{"Cot", "[", 
          RowBox[{"e", "+", 
           RowBox[{"f", "*", "x"}]}], "]"}], "^", 
         RowBox[{"(", 
          RowBox[{"m", "+", "p"}], ")"}]}]}]}], ",", "x"}], "]"}]}], " ", "/;",
    "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "f", ",", "g", ",", 
        "n", ",", "p"}], "}"}], ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"Not", "[", 
     RowBox[{"IntegerQ", "[", "n", "]"}], "]"}], " ", "&&", " ", 
    RowBox[{"IntegerQ", "[", "m", "]"}], " ", "&&", " ", 
    RowBox[{"Not", "[", 
     RowBox[{"IntegerQ", "[", "p", "]"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, {
   3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.4964415782510386`*^9, 
   3.4965287890937347`*^9, 3.4975759366868963`*^9, 3.497577547811758*^9, 
   3.49758349857209*^9, 3.4976394822868557`*^9, 3.497663384967433*^9, {
   3.4976635889065914`*^9, 3.497663592322997*^9}, 3.4976651612957525`*^9, {
   3.49913160954295*^9, 3.4991316274529753`*^9}, 3.4991317842431946`*^9, 
   3.5609702671974792`*^9, 3.5609704436320634`*^9, {3.561226361824071*^9, 
   3.5612263834141006`*^9}, {3.561226446604189*^9, 3.5612264740842276`*^9}, 
   3.561227358565466*^9, 3.5612660745725803`*^9, {3.561266323049816*^9, 
   3.5612663247502193`*^9}, 3.561823480361127*^9, 3.5619257938670425`*^9, {
   3.5635826464301486`*^9, 3.563582646460149*^9}, {3.563582721180253*^9, 
   3.5635827226602554`*^9}, {3.5635836233415165`*^9, 3.5635836280515227`*^9}, 
   3.563584203162328*^9, 3.563644669371813*^9, 3.563644704315811*^9, {
   3.5638245279199734`*^9, 3.563824545659998*^9}, {3.563996501312617*^9, 
   3.5639965021226177`*^9}, 3.5640151672533236`*^9, {3.564015204023375*^9, 
   3.5640152046433764`*^9}, {3.5640166062553377`*^9, 
   3.5640166601854134`*^9}, {3.564016745825534*^9, 3.564016746265534*^9}, {
   3.564019332176655*^9, 3.564019332546655*^9}, 3.5640193817967243`*^9, {
   3.564019416336773*^9, 3.5640194301967916`*^9}, 3.5640199927075796`*^9, {
   3.564154339701357*^9, 3.5641543844814196`*^9}, 3.5641544420215*^9, {
   3.5641546152117424`*^9, 3.5641546240217547`*^9}, 3.5641564421893005`*^9, {
   3.564167088218707*^9, 3.564167101428726*^9}, {3.5641677394296193`*^9, 
   3.564167746619629*^9}, {3.5641684407006006`*^9, 3.5641684626606317`*^9}, 
   3.5641684997606835`*^9, {3.564168825763942*^9, 3.5641688320939507`*^9}, 
   3.5820748526170163`*^9, {3.582078274615162*^9, 3.5820782798951693`*^9}, {
   3.582083033351824*^9, 3.58208306612187*^9}, {3.582083167742012*^9, 
   3.5820831686420135`*^9}, {3.582083332492243*^9, 3.582083339112252*^9}, {
   3.5821561036655016`*^9, 3.5821561075455065`*^9}, {3.5821622139880686`*^9, 
   3.5821622165080724`*^9}, {3.5839688892170124`*^9, 3.583968894157019*^9}, {
   3.583969775192754*^9, 3.5839697777927575`*^9}, {3.5841989851005573`*^9, 
   3.5841990065505953`*^9}, {3.5841991133327827`*^9, 3.584199114331185*^9}, 
   3.5842009139659452`*^9, 3.5842042715895386`*^9, 3.584206850848969*^9, {
   3.58420703050922*^9, 3.5842071033893223`*^9}, {3.584207134499366*^9, 
   3.5842071364993687`*^9}, 3.584317765094389*^9, {3.5843200969864845`*^9, 
   3.5843201056757*^9}, {3.584320148497775*^9, 3.5843201959998584`*^9}, {
   3.584384655714239*^9, 3.584384658934243*^9}, {3.5843866899770865`*^9, 
   3.5843866955570946`*^9}, 3.584393498600805*^9, {3.584393535030856*^9, 
   3.584393597040943*^9}, {3.5843945851123734`*^9, 3.5843946011923957`*^9}, {
   3.58439464740246*^9, 3.584394647582461*^9}, {3.5843960850835056`*^9, 
   3.584396126983564*^9}, {3.6110141535044875`*^9, 3.6110141715693192`*^9}, {
   3.611014210085787*^9, 3.6110142366370335`*^9}, {3.6176611652811937`*^9, 
   3.6176611974890356`*^9}, {3.6176615323501887`*^9, 3.617661543085803*^9}, {
   3.6176616965165787`*^9, 3.617661718141815*^9}, 3.6176620913981647`*^9, {
   3.61766213537068*^9, 3.6176621845514927`*^9}, {3.6176622187504487`*^9, 
   3.617662252370372*^9}, {3.6176623292977715`*^9, 3.6176623350581007`*^9}, {
   3.617990335788833*^9, 3.617990346965472*^9}, {3.617990400723547*^9, 
   3.6179904273370695`*^9}, {3.618023650313898*^9, 3.618023660959507*^9}, {
   3.6180792624265423`*^9, 3.6180792706150103`*^9}, {3.625255237617655*^9, 
   3.6252552896633463`*^9}, {3.6252553537834597`*^9, 3.625255374593896*^9}, 
   3.6254347894714823`*^9, {3.625434873808601*^9, 3.625434875968604*^9}, 
   3.62586285194851*^9, {3.626026150374086*^9, 3.6260261718397236`*^9}, {
   3.6260262071425858`*^9, 3.6260262258782187`*^9}, {3.626026403749731*^9, 
   3.626026427680173*^9}, {3.6260266332261343`*^9, 3.626026643568952*^9}, {
   3.626026837617693*^9, 3.6260268532489204`*^9}, {3.626026948946742*^9, 
   3.626026951766746*^9}, {3.6260271001329575`*^9, 3.626027107092967*^9}, {
   3.6260272388261557`*^9, 3.626027258063183*^9}, 3.6260278017211456`*^9, {
   3.6301716215519176`*^9, 3.63017163701536*^9}, {3.630171681946642*^9, 
   3.630171681962242*^9}, 3.6301717496401615`*^9, {3.6642994626702843`*^9, 
   3.664299466375496*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["2:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"g", " ", 
        RowBox[{"Tan", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "p"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         RowBox[{"Tan", "[", 
          RowBox[{"e", "+", 
           RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}], "m"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"c", "+", 
        RowBox[{"d", " ", 
         RowBox[{"Cot", "[", 
          RowBox[{"e", "+", 
           RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}], "n"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], " ", Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{"n", "\[NotElement]", "\[DoubleStruckCapitalZ]"}], " ", 
       "\[And]", " ", 
       RowBox[{"m", "\[NotElement]", "\[DoubleStruckCapitalZ]"}]}]]]], 
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9, 
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9, 
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9}, 
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193415804486094`*^9, 
   3.5193415824298124`*^9}, {3.5193459537101994`*^9, 
   3.5193459567210045`*^9}, {3.5193514074002457`*^9, 
   3.5193514076802464`*^9}, {3.5194037987985263`*^9, 3.519403799124545*^9}, 
   3.519410735765964*^9, {3.5233155477729936`*^9, 3.5233155497329965`*^9}, {
   3.5233157343632545`*^9, 3.5233157343632545`*^9}, 3.5239204163859615`*^9, {
   3.5239209756969433`*^9, 3.523920976851345*^9}, {3.5239210574690866`*^9, 
   3.5239210738491154`*^9}, {3.529529514995768*^9, 3.52952953897301*^9}, {
   3.529530096003188*^9, 3.5295300961903887`*^9}, 3.534007429411028*^9, {
   3.5415552865111437`*^9, 3.541555295262759*^9}, 3.5416244798324237`*^9, {
   3.5416246450471644`*^9, 3.541624690056343*^9}, 3.541626366779134*^9, 
   3.541628901025448*^9, 3.5416290724956875`*^9, 3.5417936736567183`*^9, {
   3.541801799109347*^9, 3.5418018093593607`*^9}, 3.5418018795094595`*^9, 
   3.541801925819524*^9, {3.5418024417002463`*^9, 3.5418024419302464`*^9}, {
   3.5418024734002905`*^9, 3.5418024867203093`*^9}, {3.541804026542465*^9, 
   3.541804026542465*^9}, {3.5418051959141026`*^9, 3.5418051961241026`*^9}, {
   3.5418055896246533`*^9, 3.5418055898246536`*^9}, {3.541807928007927*^9, 
   3.5418079282179275`*^9}, {3.541816058189309*^9, 3.54181605834931*^9}, {
   3.541895620942338*^9, 3.5418956211823387`*^9}, {3.553299727838824*^9, 
   3.5532997300288267`*^9}, {3.5532999791891756`*^9, 
   3.5532999817291794`*^9}, {3.553305063816294*^9, 3.5533050640562944`*^9}, {
   3.5533051019963474`*^9, 3.553305104566351*^9}, {3.5533054443968267`*^9, 
   3.5533054475368314`*^9}, 3.5533078575102053`*^9, {3.5533106008040457`*^9, 
   3.5533106008040457`*^9}, {3.5546831350233016`*^9, 3.554683135273302*^9}, 
   3.560216298603896*^9, 3.5606251917417693`*^9, {3.560975839890805*^9, 
   3.560975839890805*^9}, {3.5609767760421157`*^9, 3.5609767854021287`*^9}, {
   3.560976852662223*^9, 3.560976853522224*^9}, 3.5609769271023273`*^9, {
   3.560976964532379*^9, 3.5609769756223946`*^9}, 3.5612650221567316`*^9, {
   3.561265055057189*^9, 3.561265060532799*^9}, {3.5612653477293034`*^9, 
   3.5612653496949067`*^9}, {3.561310384662383*^9, 3.5613103850223837`*^9}, 
   3.561312920465933*^9, {3.5618234264110518`*^9, 3.561823438071068*^9}, 
   3.561925865751144*^9, 3.5619260660634246`*^9, 3.5635825045499496`*^9, {
   3.5635826463301487`*^9, 3.5635826463401484`*^9}, {3.5635826884902077`*^9, 
   3.5635826884902077`*^9}, {3.5638244925399237`*^9, 3.5638245038599396`*^9}, 
   3.563996420240003*^9, {3.5639964932526054`*^9, 3.5639964939826064`*^9}, 
   3.5640145226324215`*^9, {3.564016220404798*^9, 3.5640162249248047`*^9}, {
   3.564016568695286*^9, 3.564016568695286*^9}, {3.564016788735594*^9, 
   3.564016789855595*^9}, {3.564018964066139*^9, 3.5640189837661667`*^9}, {
   3.5640195957070236`*^9, 3.564019595907024*^9}, {3.5640199524575233`*^9, 
   3.5640199694775467`*^9}, 3.5641540447309437`*^9, {3.564154076240988*^9, 
   3.56415412034105*^9}, {3.5641667095281773`*^9, 3.5641667105381784`*^9}, {
   3.564166852078377*^9, 3.564166852078377*^9}, {3.564166956508523*^9, 
   3.564166956878524*^9}, {3.5641680993101225`*^9, 3.5641681398001795`*^9}, 
   3.5820748138669624`*^9, {3.582078243945119*^9, 3.5820782445651197`*^9}, {
   3.5820826210512466`*^9, 3.582082621241247*^9}, {3.582083322402229*^9, 
   3.582083322402229*^9}, {3.58208336597229*^9, 3.5820833915223255`*^9}, 
   3.582083609742631*^9, {3.5821599562849083`*^9, 3.5821599565149083`*^9}, {
   3.5821622274480877`*^9, 3.582162227618088*^9}, {3.582240953280669*^9, 
   3.5822409535006695`*^9}, 3.5822547098796463`*^9, {3.5839689570071073`*^9, 
   3.5839689571771073`*^9}, {3.583979831268547*^9, 3.583979832214601*^9}, {
   3.5841990598090887`*^9, 3.5841990976391554`*^9}, {3.584206915119059*^9, 
   3.584206929679079*^9}, {3.5843178906590095`*^9, 3.5843178925466127`*^9}, {
   3.5843199525302305`*^9, 3.584319964963453*^9}, {3.584320004977523*^9, 
   3.5843200172703447`*^9}, {3.584384665944253*^9, 3.5843846680242558`*^9}, {
   3.5843867869172225`*^9, 3.5843867898572264`*^9}, {3.584386822887273*^9, 
   3.5843868311772842`*^9}, {3.5843939269014044`*^9, 
   3.5843939283914065`*^9}, {3.584396558984169*^9, 3.584396611514242*^9}, 
   3.611003449905646*^9, 3.6110044404449854`*^9, {3.611014138544061*^9, 
   3.611014143021269*^9}, 3.612115250958517*^9, {3.61766111905355*^9, 
   3.617661120573636*^9}, 3.6176612463798323`*^9, 3.6176613963954124`*^9, {
   3.617661465739379*^9, 3.6176614699096174`*^9}, {3.6176615189894247`*^9, 
   3.617661523686693*^9}, {3.617661654139155*^9, 3.6176616672309036`*^9}, {
   3.6176619499440737`*^9, 3.6176619526192265`*^9}, {3.6179901253007936`*^9, 
   3.61799013624242*^9}, {3.617990224696479*^9, 3.6179902449546375`*^9}, {
   3.625254899880661*^9, 3.6252549271651087`*^9}, 3.6260259990538197`*^9, {
   3.6260273740723476`*^9, 3.6260273982523823`*^9}, 3.6260278855302644`*^9, {
   3.6301716215675173`*^9, 3.6301716215675173`*^9}, 3.6301716819778423`*^9, 
   3.6642993840757885`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["\<\
Derivation: Piecewise constant extraction\
\>", "Subsubsection",
 CellChangeTimes->{
  3.479686820458373*^9, {3.490657960122612*^9, 3.49065796095366*^9}, 
   3.4964414996009283`*^9, {3.4964447088058186`*^9, 3.4964447131058245`*^9}, 
   3.496528844063812*^9, 3.497575950496916*^9, 3.4975775797018027`*^9, 
   3.497639496888481*^9, 3.4976636252234545`*^9, 3.497665167504564*^9, {
   3.561226054703641*^9, 3.5612260578536453`*^9}, {3.564014697112665*^9, 
   3.5640146992226686`*^9}, {3.564014729972711*^9, 3.564014741602728*^9}, 
   3.564154158611103*^9, {3.6252549507211504`*^9, 3.6252549526711535`*^9}, 
   3.6254347678314524`*^9, {3.6260274136394043`*^9, 3.6260274221794157`*^9}}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SubscriptBox["\[PartialD]", "x"], 
    FractionBox[
     RowBox[{
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"c", "+", 
         RowBox[{"d", " ", 
          RowBox[{"Cot", "[", 
           RowBox[{"e", "+", 
            RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}], "n"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"g", " ", 
         RowBox[{"Tan", "[", 
          RowBox[{"e", "+", 
           RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "n"]}], 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"d", "+", 
        RowBox[{"c", " ", 
         RowBox[{"Tan", "[", 
          RowBox[{"e", "+", 
           RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}], "n"]]}], "\[Equal]", 
   "0"}]],
  CellChangeTimes->{{3.6252550900937953`*^9, 3.6252551495650997`*^9}}]
}], "Subsubsection",
 CellChangeTimes->{
  3.479686820458373*^9, {3.490657960122612*^9, 3.49065796095366*^9}, 
   3.4964414996009283`*^9, {3.4964447088058186`*^9, 3.4964447131058245`*^9}, 
   3.496528844063812*^9, 3.497575950496916*^9, 3.4975775797018027`*^9, 
   3.497639496888481*^9, 3.4976636252234545`*^9, 3.497665167504564*^9, {
   3.561226054703641*^9, 3.5612260578536453`*^9}, {3.564014697112665*^9, 
   3.5640146992226686`*^9}, {3.564014729972711*^9, 3.564014741602728*^9}, 
   3.564154158611103*^9, {3.6252549507211504`*^9, 3.6252549526711535`*^9}, {
   3.6252551596895175`*^9, 3.62525516669593*^9}, {3.62602752359256*^9, 
   3.62602752359256*^9}, {3.6301716215831175`*^9, 3.6301716215831175`*^9}, {
   3.6301716819778423`*^9, 3.6301716819778423`*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"n", "\[NotElement]", "\[DoubleStruckCapitalZ]"}], " ", "\[And]", 
   " ", 
   RowBox[{"m", "\[NotElement]", "\[DoubleStruckCapitalZ]"}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, 
   3.4976397903561964`*^9, {3.497663553088928*^9, 3.4976635622149444`*^9}, 
   3.4976651743061757`*^9, {3.4991317949832096`*^9, 3.4991317953032103`*^9}, {
   3.561226279503955*^9, 3.5612262831739607`*^9}, {3.5612263210940137`*^9, 
   3.5612263409240413`*^9}, {3.561227979331335*^9, 3.561227980911338*^9}, {
   3.561309917491729*^9, 3.561309917491729*^9}, {3.561422840120915*^9, 
   3.561422840120915*^9}, {3.5635826847702026`*^9, 3.5635826847702026`*^9}, {
   3.563824156349453*^9, 3.563824156349453*^9}, {3.563909210116375*^9, 
   3.563909210116375*^9}, {3.563911783029977*^9, 3.563911783029977*^9}, {
   3.5640165541752653`*^9, 3.5640165541752653`*^9}, {3.564019413056768*^9, 
   3.564019413056768*^9}, {3.5640199771975574`*^9, 3.5640199771975574`*^9}, {
   3.564154196931157*^9, 3.564154196931157*^9}, {3.564167082448699*^9, 
   3.564167082448699*^9}, {3.5641684276805825`*^9, 3.564168427840583*^9}, {
   3.582078253155132*^9, 3.5820782535851326`*^9}, {3.5820833259922338`*^9, 
   3.5820833259922338`*^9}, 3.5842070099091916`*^9, {3.584320156562989*^9, 
   3.584320159558194*^9}, 3.5843202257491107`*^9, {3.584386845867305*^9, 
   3.584386845867305*^9}, {3.584393964501457*^9, 3.584393964501457*^9}, {
   3.584396627384265*^9, 3.584396627384265*^9}, {3.6176615246387477`*^9, 
   3.617661526902877*^9}, {3.617661672431201*^9, 3.6176616729982333`*^9}, {
   3.6176619563584404`*^9, 3.617661961450732*^9}, {3.6179902549452095`*^9, 
   3.6179902549452095`*^9}, {3.6252549461815424`*^9, 3.6252549461815424`*^9}, 
   3.6258627332893004`*^9, {3.626027407522395*^9, 3.626027407522395*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"g", " ", 
      RowBox[{"Tan", "[", 
       RowBox[{"e", "+", 
        RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "p"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       RowBox[{"Tan", "[", 
        RowBox[{"e", "+", 
         RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}], "m"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"c", "+", 
      RowBox[{"d", " ", 
       RowBox[{"Cot", "[", 
        RowBox[{"e", "+", 
         RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}], "n"], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", "\[IndentingNewLine]", 
     FractionBox[
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"g", " ", 
          RowBox[{"Tan", "[", 
           RowBox[{"e", "+", 
            RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "n"], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"c", "+", 
          RowBox[{"d", " ", 
           RowBox[{"Cot", "[", 
            RowBox[{"e", "+", 
             RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}], "n"]}], 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"d", "+", 
         RowBox[{"c", " ", 
          RowBox[{"Tan", "[", 
           RowBox[{"e", "+", 
            RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}], "n"]]}]}], 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"g", " ", 
        RowBox[{"Tan", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], 
      RowBox[{"p", "-", "n"}]], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         RowBox[{"Tan", "[", 
          RowBox[{"e", "+", 
           RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}], "m"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"d", "+", 
        RowBox[{"c", " ", 
         RowBox[{"Tan", "[", 
          RowBox[{"e", "+", 
           RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}], "n"], " ", 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579723816*^9, 3.4796580261689425`*^9}, 
   3.479661191290163*^9, {3.479686720164157*^9, 3.479686720204214*^9}, {
   3.479686831554328*^9, 3.479686834819022*^9}, {3.4940970712485504`*^9, 
   3.4940971130286083`*^9}, 3.4940971455886545`*^9, 3.49644160092107*^9, 
   3.496441663571158*^9, {3.496528814953771*^9, 3.4965288223737817`*^9}, 
   3.497576045657049*^9, 3.497576089857111*^9, 3.4975776169418545`*^9, {
   3.497577677171939*^9, 3.497577691381959*^9}, {3.4976395112561064`*^9, 
   3.4976395477133703`*^9}, {3.49766342891271*^9, 3.497663457772761*^9}, {
   3.497663580747777*^9, 3.497663583134581*^9}, {3.4976652106074395`*^9, 
   3.4976652204666567`*^9}, 3.4976652749419527`*^9, {3.4991316095329504`*^9, 
   3.4991316274529753`*^9}, {3.4991318033632216`*^9, 3.499131806573226*^9}, {
   3.56122609003369*^9, 3.5612261336137514`*^9}, {3.5612261841238217`*^9, 
   3.561226212973862*^9}, {3.561226245623908*^9, 3.561226251553916*^9}, 
   3.5612273551154613`*^9, {3.56126513522573*^9, 3.56126525479994*^9}, {
   3.5612652963584127`*^9, 3.5612653308188734`*^9}, 3.561925867011146*^9, 
   3.561926066683426*^9, {3.5635826463801484`*^9, 3.563582646420149*^9}, {
   3.563582693780215*^9, 3.5635826949302163`*^9}, 3.5635835835414605`*^9, 
   3.5635836156015053`*^9, {3.5638245154999557`*^9, 3.5638245234999666`*^9}, {
   3.564014524482424*^9, 3.564014526282426*^9}, {3.5640149915030775`*^9, 
   3.564015054033165*^9}, {3.564019055216267*^9, 3.56401910007633*^9}, 
   3.5640192778865786`*^9, {3.564154176241128*^9, 3.5641541887011456`*^9}, {
   3.5641542645912514`*^9, 3.564154314201321*^9}, {3.5641677295096054`*^9, 
   3.5641677311696076`*^9}, {3.5641683163004265`*^9, 3.5641684101405582`*^9}, 
   3.582074813876962*^9, 3.582078262695145*^9, {3.5820828317615423`*^9, 
   3.582082858171579*^9}, {3.584206946559103*^9, 3.5842069983391757`*^9}, {
   3.6110140782187552`*^9, 3.6110141081240077`*^9}, {3.6176611212376747`*^9, 
   3.617661123581808*^9}, 3.617661246891862*^9, {3.617661396914442*^9, 
   3.617661397906499*^9}, {3.6176614835944*^9, 3.6176614850024805`*^9}, {
   3.617661527580916*^9, 3.617661528996997*^9}, {3.6176616793625975`*^9, 
   3.617661689811195*^9}, {3.6176619731494007`*^9, 3.6176619772106333`*^9}, 
   3.6176620315487413`*^9, {3.61799013047509*^9, 3.617990210472666*^9}, {
   3.6252549598159666`*^9, 3.625255008082451*^9}, {3.62525518355956*^9, 
   3.6252551975703845`*^9}, {3.6260260073062344`*^9, 3.626026083403168*^9}, 
   3.6260275381495805`*^9, 3.6260280570035076`*^9, {3.6301716215987177`*^9, 
   3.6301716216299176`*^9}, {3.630171681993442*^9, 3.630171681993442*^9}, 
   3.664299385228855*^9, {3.664299489039792*^9, 3.6642995035726233`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"g_.", "*", 
        RowBox[{"tan", "[", 
         RowBox[{"e_.", "+", 
          RowBox[{"f_.", "*", "x_"}]}], "]"}]}], ")"}], "^", "p_."}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_", "+", 
        RowBox[{"b_.", "*", 
         RowBox[{"tan", "[", 
          RowBox[{"e_.", "+", 
           RowBox[{"f_.", "*", "x_"}]}], "]"}]}]}], ")"}], "^", "m_"}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"c_", "+", 
        RowBox[{"d_.", "*", 
         RowBox[{"cot", "[", 
          RowBox[{"e_.", "+", 
           RowBox[{"f_.", "*", "x_"}]}], "]"}]}]}], ")"}], "^", "n_"}]}], ",",
     "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"g", "*", 
       RowBox[{"Tan", "[", 
        RowBox[{"e", "+", 
         RowBox[{"f", "*", "x"}]}], "]"}]}], ")"}], "^", "n"}], "*", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"c", "+", 
        RowBox[{"d", "*", 
         RowBox[{"Cot", "[", 
          RowBox[{"e", "+", 
           RowBox[{"f", "*", "x"}]}], "]"}]}]}], ")"}], "^", "n"}], "/", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"d", "+", 
        RowBox[{"c", "*", 
         RowBox[{"Tan", "[", 
          RowBox[{"e", "+", 
           RowBox[{"f", "*", "x"}]}], "]"}]}]}], ")"}], "^", "n"}]}], "*", 
    RowBox[{"Int", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"g", "*", 
          RowBox[{"Tan", "[", 
           RowBox[{"e", "+", 
            RowBox[{"f", "*", "x"}]}], "]"}]}], ")"}], "^", 
        RowBox[{"(", 
         RowBox[{"p", "-", "n"}], ")"}]}], "*", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"a", "+", 
          RowBox[{"b", "*", 
           RowBox[{"Tan", "[", 
            RowBox[{"e", "+", 
             RowBox[{"f", "*", "x"}]}], "]"}]}]}], ")"}], "^", "m"}], "*", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"d", "+", 
          RowBox[{"c", "*", 
           RowBox[{"Tan", "[", 
            RowBox[{"e", "+", 
             RowBox[{"f", "*", "x"}]}], "]"}]}]}], ")"}], "^", "n"}]}], ",", 
      "x"}], "]"}]}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "f", ",", "g", ",", 
        "m", ",", "n", ",", "p"}], "}"}], ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"Not", "[", 
     RowBox[{"IntegerQ", "[", "n", "]"}], "]"}], " ", "&&", " ", 
    RowBox[{"Not", "[", 
     RowBox[{"IntegerQ", "[", "m", "]"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, {
   3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.4964415782510386`*^9, 
   3.4965287890937347`*^9, 3.4975759366868963`*^9, 3.497577547811758*^9, 
   3.49758349857209*^9, 3.4976394822868557`*^9, 3.497663384967433*^9, {
   3.4976635889065914`*^9, 3.497663592322997*^9}, 3.4976651612957525`*^9, {
   3.49913160954295*^9, 3.4991316274529753`*^9}, 3.4991317842431946`*^9, 
   3.5609702671974792`*^9, 3.5609704436320634`*^9, {3.561226361824071*^9, 
   3.5612263834141006`*^9}, {3.561226446604189*^9, 3.5612264740842276`*^9}, 
   3.561227358565466*^9, 3.5612660745725803`*^9, {3.561266323049816*^9, 
   3.5612663247502193`*^9}, 3.561823480361127*^9, 3.5619257938670425`*^9, {
   3.5635826464301486`*^9, 3.563582646460149*^9}, {3.563582721180253*^9, 
   3.5635827226602554`*^9}, {3.5635836233415165`*^9, 3.5635836280515227`*^9}, 
   3.563584203162328*^9, 3.563644669371813*^9, 3.563644704315811*^9, {
   3.5638245279199734`*^9, 3.563824545659998*^9}, {3.563996501312617*^9, 
   3.5639965021226177`*^9}, 3.5640151672533236`*^9, {3.564015204023375*^9, 
   3.5640152046433764`*^9}, {3.5640166062553377`*^9, 
   3.5640166601854134`*^9}, {3.564016745825534*^9, 3.564016746265534*^9}, {
   3.564019332176655*^9, 3.564019332546655*^9}, 3.5640193817967243`*^9, {
   3.564019416336773*^9, 3.5640194301967916`*^9}, 3.5640199927075796`*^9, {
   3.564154339701357*^9, 3.5641543844814196`*^9}, 3.5641544420215*^9, {
   3.5641546152117424`*^9, 3.5641546240217547`*^9}, 3.5641564421893005`*^9, {
   3.564167088218707*^9, 3.564167101428726*^9}, {3.5641677394296193`*^9, 
   3.564167746619629*^9}, {3.5641684407006006`*^9, 3.5641684626606317`*^9}, 
   3.5641684997606835`*^9, {3.564168825763942*^9, 3.5641688320939507`*^9}, 
   3.5820748526170163`*^9, {3.582078274615162*^9, 3.5820782798951693`*^9}, {
   3.582083033351824*^9, 3.58208306612187*^9}, {3.582083167742012*^9, 
   3.5820831686420135`*^9}, {3.582083332492243*^9, 3.582083339112252*^9}, {
   3.5821561036655016`*^9, 3.5821561075455065`*^9}, {3.5821622139880686`*^9, 
   3.5821622165080724`*^9}, {3.5839688892170124`*^9, 3.583968894157019*^9}, {
   3.583969775192754*^9, 3.5839697777927575`*^9}, {3.5841989851005573`*^9, 
   3.5841990065505953`*^9}, {3.5841991133327827`*^9, 3.584199114331185*^9}, 
   3.5842009139659452`*^9, 3.5842042715895386`*^9, 3.584206850848969*^9, {
   3.58420703050922*^9, 3.5842071033893223`*^9}, {3.584207134499366*^9, 
   3.5842071364993687`*^9}, 3.584317765094389*^9, {3.5843200969864845`*^9, 
   3.5843201056757*^9}, {3.584320148497775*^9, 3.5843201959998584`*^9}, {
   3.584384655714239*^9, 3.584384658934243*^9}, {3.5843866899770865`*^9, 
   3.5843866955570946`*^9}, 3.584393498600805*^9, {3.584393535030856*^9, 
   3.584393597040943*^9}, {3.5843945851123734`*^9, 3.5843946011923957`*^9}, {
   3.58439464740246*^9, 3.584394647582461*^9}, {3.5843960850835056`*^9, 
   3.584396126983564*^9}, {3.6110141535044875`*^9, 3.6110141715693192`*^9}, {
   3.611014210085787*^9, 3.6110142366370335`*^9}, {3.6176611652811937`*^9, 
   3.6176611974890356`*^9}, {3.6176615323501887`*^9, 3.617661543085803*^9}, {
   3.6176616965165787`*^9, 3.617661718141815*^9}, 3.6176620913981647`*^9, {
   3.61766213537068*^9, 3.6176621845514927`*^9}, {3.6176622187504487`*^9, 
   3.617662252370372*^9}, {3.6176623292977715`*^9, 3.6176623350581007`*^9}, {
   3.617990335788833*^9, 3.617990346965472*^9}, {3.617990400723547*^9, 
   3.6179904273370695`*^9}, {3.618023650313898*^9, 3.618023660959507*^9}, {
   3.6180792624265423`*^9, 3.6180792706150103`*^9}, {3.625255237617655*^9, 
   3.6252552896633463`*^9}, {3.6252553537834597`*^9, 3.625255374593896*^9}, 
   3.6254347894714823`*^9, {3.625434873808601*^9, 3.625434875968604*^9}, 
   3.62586285194851*^9, {3.626026150374086*^9, 3.6260261718397236`*^9}, {
   3.6260262071425858`*^9, 3.6260262258782187`*^9}, {3.6260276036496735`*^9, 
   3.6260276579297504`*^9}, {3.6260277689829087`*^9, 3.626027770712911*^9}, {
   3.6301716216455173`*^9, 3.63017163703096*^9}, 3.630171682009042*^9, 
   3.630171749671361*^9, {3.664299513916215*^9, 3.6642995575927134`*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]]
}, Closed]]
},
AutoGeneratedPackage->Automatic,
CellGrouping->Manual,
WindowSize->{1908, 946},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
PrintingCopies->1,
PrintingStartingPageNumber->1,
PrintingPageRange->{1, 32000},
PageHeaders->{{
   Cell[
    TextData[{
      StyleBox[
       CounterBox["Page"], "PageNumber"], " ", "|", " ", 
      StyleBox[
       ValueBox["FileName"], "Header"]}], "Header", 
    CellMargins -> {{0, Inherited}, {Inherited, Inherited}}], None, None}, {
   Cell[
    TextData[{
     "Rules", " ", "for", " ", "integrands", " ", "of", " ", "the", " ", 
      "form", " ", "(", "a", "+", "b", " ", "tan", "(", "e", "+", "f", " ", 
      "x", ")", "^", "m", " ", "(", "c", "+", "d", " ", "tan", "(", "e", "+", 
      "f", " ", "x", ")", ")", "^", "n", " ", "(", "g", " ", "tan", "[", "e", 
      "+", "f", " ", "x", "]", ")", "^", "p"}], "Header", 
    CellMargins -> {{0, Inherited}, {Inherited, Inherited}}], None, 
   Cell[
    TextData[
     CounterBox["Page", CounterFunction :> Identity]], "Header", 
    CellMargins -> {{Inherited, 0}, {Inherited, Inherited}}]}},
PageFooters->{{None, None, None}, {None, None, None}},
PageHeaderLines->{False, False},
PageFooterLines->{False, False},
PrintingOptions->{"FacingPages"->False,
"FirstPageFace"->Right,
"FirstPageFooter"->False,
"FirstPageHeader"->False,
"Magnification"->1.,
"PaperOrientation"->"Landscape",
"PaperSize"->{783., 601.8},
"PrintCellBrackets"->False,
"PrintMultipleHorizontalPages"->False,
"PrintRegistrationMarks"->False,
"PrintingMargins"->28.8},
Magnification->1.3999998569488525`,
FrontEndVersion->"8.0 for Microsoft Windows (64-bit) (October 6, 2011)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[545, 20, 6858, 115, 42, "Subsubtitle"],
Cell[CellGroupData[{
Cell[7428, 139, 6842, 112, 53, "Subsubtitle"],
Cell[14273, 253, 2972, 41, 93, "Subsubsection"],
Cell[17248, 296, 5225, 100, 144, "Subsubtitle"],
Cell[22476, 398, 771, 11, 93, "Subsubsection"],
Cell[23250, 411, 6794, 125, 282, "Code"],
Cell[30047, 538, 89, 2, 93, "Subsubsection"]
}, Closed]],
Cell[30151, 543, 96, 1, 30, "Input"],
Cell[30250, 546, 7249, 121, 42, "Subsubtitle"],
Cell[CellGroupData[{
Cell[37524, 671, 7288, 123, 53, "Subsubtitle"],
Cell[44815, 796, 626, 9, 93, "Subsubsection"],
Cell[45444, 807, 2110, 55, 113, "Subsubsection"],
Cell[47557, 864, 4834, 72, 69, "Subsubsection"],
Cell[52394, 938, 6889, 124, 144, "Subsubtitle"],
Cell[59286, 1064, 816, 11, 93, "Subsubsection"],
Cell[60105, 1077, 9500, 167, 282, "Code"],
Cell[69608, 1246, 9495, 167, 310, "Code"],
Cell[79106, 1415, 89, 2, 93, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[79232, 1422, 7278, 125, 53, "Subsubtitle"],
Cell[86513, 1549, 2158, 29, 93, "Subsubsection"],
Cell[88674, 1580, 3518, 61, 120, "Subsubsection"],
Cell[92195, 1643, 4852, 75, 69, "Subsubsection"],
Cell[97050, 1720, 6956, 134, 184, "Subsubtitle"],
Cell[104009, 1856, 816, 11, 93, "Subsubsection"],
Cell[104828, 1869, 9603, 180, 282, "Code"],
Cell[114434, 2051, 89, 2, 93, "Subsubsection"]
}, Closed]],
Cell[114538, 2056, 94, 1, 30, "Input"],
Cell[114635, 2059, 6960, 116, 42, "Subsubtitle"],
Cell[CellGroupData[{
Cell[121620, 2179, 7053, 115, 53, "Subsubtitle"],
Cell[128676, 2296, 626, 9, 93, "Subsubsection"],
Cell[129305, 2307, 1081, 23, 104, "Subsubsection"],
Cell[130389, 2332, 2457, 37, 69, "Subsubsection"],
Cell[132849, 2371, 4188, 88, 144, "Subsubtitle"],
Cell[137040, 2461, 771, 11, 93, "Subsubsection"],
Cell[137814, 2474, 5970, 117, 282, "Code"],
Cell[143787, 2593, 89, 2, 93, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[143913, 2600, 4481, 80, 53, "Subsubtitle"],
Cell[CellGroupData[{
Cell[148419, 2684, 4697, 85, 144, "Subsubtitle"],
Cell[CellGroupData[{
Cell[153141, 2773, 7376, 121, 144, "Subsubtitle"],
Cell[160520, 2896, 626, 9, 93, "Subsubsection"],
Cell[161149, 2907, 1133, 24, 104, "Subsubsection"],
Cell[162285, 2933, 2738, 42, 69, "Subsubsection"],
Cell[165026, 2977, 4274, 87, 173, "Subsubtitle"],
Cell[169303, 3066, 771, 11, 93, "Subsubsection"],
Cell[170077, 3079, 6174, 118, 282, "Code"],
Cell[176254, 3199, 89, 2, 93, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[176380, 3206, 7490, 124, 144, "Subsubtitle"],
Cell[183873, 3332, 716, 11, 93, "Subsubsection"],
Cell[184592, 3345, 1133, 24, 104, "Subsubsection"],
Cell[185728, 3371, 1377, 32, 76, "Subsubsection"],
Cell[187108, 3405, 2791, 43, 69, "Subsubsection"],
Cell[189902, 3450, 4635, 99, 173, "Subsubtitle"],
Cell[194540, 3551, 771, 11, 93, "Subsubsection"],
Cell[195314, 3564, 6762, 134, 282, "Code"],
Cell[202079, 3700, 89, 2, 93, "Subsubsection"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[202217, 3708, 7250, 120, 144, "Subsubtitle"],
Cell[209470, 3830, 690, 11, 93, "Subsubsection"],
Cell[210163, 3843, 1630, 41, 113, "Subsubsection"],
Cell[211796, 3886, 2607, 40, 69, "Subsubsection"],
Cell[214406, 3928, 4967, 110, 305, "Subsubtitle"],
Cell[219376, 4040, 771, 11, 93, "Subsubsection"],
Cell[220150, 4053, 6831, 141, 282, "Code"],
Cell[226984, 4196, 89, 2, 93, "Subsubsection"]
}, Closed]]
}, Closed]]
}
]
*)

(* End of internal cache information *)